В строке символов произвольной длины выбрать только буквы и вывести их на экран паскаль
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Melpops
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.
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.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
