Составить программу в Pascal ABC , которая из заданной строки получала бы новую…

Question

34

Составить программу в Pascal ABC , которая из заданной строки получала бы новую строку, удалив все "#" и повторив каждый символ, отличный от знакарешотка дважды. Вывести на экран, полученную новую строку.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

gwozdew · Accepted Answer

36

gwozdew

02 апреля 2023

var a: string; i,j: integer; beginreadln (a); while pos ('#',a) <>0 do delete (a,pos ('#',a) ,1); for i: =1 to length (a) dofor j: =1 to 2 dowrite (a[i]); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: