Pascal. Задана последовательность символов, за которой следует точка (в саму последовательность точка не входит). Напечатать текст, удалив из него все цифры.

Question

Информатика

Антонидка

14 марта, 05:28

Pascal. Задана последовательность символов, за которой следует точка (в саму последовательность точка не входит). Напечатать текст, удалив из него все цифры.

+5

Ответы (1)

Знаете ответ на вопрос?

Светлана · Answer 1

Var i, n : longint; c : array [1 ... 100] of char;

begin

readln (n) ;

for i:=1 to n do readln (c[i]) ;

for i:=1 to n do

if (c[i]'1') and

(c[i]'2') and

(c[i]'3') and

(c[i]'4') and

(c[i]'5') and

(c[i]'6') and

(c[i]'7') and

(c[i]'8') and

(c[i]'9') and

(c[i]'0')

then writeln (c[i]) ;

end.