В строке символов произвольной длины выбрать только буквы и вывести их на экран паскаль

Question

Информатика

Анатонина

1 июня, 10:24

В строке символов произвольной длины выбрать только буквы и вывести их на экран паскаль

+1

Ответы (1)

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

Дельфина · Answer 1

uses crt;

var s:string; i:integer;

begin

read (s) ;

for i : = 1 to length (s) do begin

if (s[i] > = 'a') and (s[i] < = 'z') then write (s[i]) ;

if (s[i] > = 'A') and (s[i] < = 'Z') then write (s[i]) ;

end;

end.