1. Информатика
  2. Встроке символов произвольной

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

тчочолаовов1 тчочолаовов1    2   28.09.2019 03:00    3

Ответы
тая112 тая112  02.09.2020 07:45

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
misa26 misa26  08.07.2019 06:00
25 ! сравнить. 200 байт и 0,25 кб. 3 байта и 24 бита. 1536 бит и 1 кб. можно решить даже один. только объясните подробно как вы нашли ответ. непросто поставить знак. объясните как...
Гена102 Гена102  08.07.2019 06:00
Составить программу рост и вес среднестатистического учащегося в pascal abc...
gnbufa gnbufa  08.07.2019 06:00
Дано двузначное число. определить , равен ли квадрат этого числа учетверенной сумме кубов его цифр. 60 !...
Artemkizaru Artemkizaru  24.05.2019 05:20
Информация воспринимается человеком с чувств, если смотреть в процентах, какую диаграмму можно составить? (чувства: зрение, слух, осязание, обоняние и вкус) , ....
Даня1233221 Даня1233221  24.05.2019 05:20
Составте программу нахождения максимального из четырёх чисел a,b,c,d. пример ввода: 2 5 7 1 пример вывода: большее из чисел равно 7...
Римская1 Римская1  07.04.2020 06:09
Переведите число 101110 из двоичной системы счисления в десятичную систему счисления...
polinaaksd polinaaksd  07.04.2020 06:09
Зачем скбки в сообщении? ​...
Didi12EW Didi12EW  20.10.2019 19:11
Найдите кратчайшее расстояние между пунктами а и е....
Jions Jions  20.10.2019 19:08
Составить программу заполнения двух массивов случайными числами паскаль...
vetraven vetraven  01.09.2019 07:20
После преобразования растрового графического файла его объем уменьшился в 1,5 раза. сколько цветов было в палитре первоначально, если после преобразования было получено растровое...

Популярные вопросы