Предмет: Информатика,
автор: viktoriadubakova
В строке символов произвольной длины выбрать только буквы и вывести их на экран паскаль
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Английский язык,
автор: sashumbamedveshumba
Предмет: Другие предметы,
автор: wonnieenhy
Предмет: Химия,
автор: olesjademcenk
Предмет: Алгебра,
автор: kordivit