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

Question

Информатика

Иоди

15 марта, 19:17

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

+2

Ответы (1)

Знаете ответ?

Патрина · Answer 1

Program z1;

var a: string; b, c, i: integer;

begin

readln (a) ; writeln () ;

c: = 0;

b: = lenght (a) ;

for i : = 1 to b do

if (a[i] > = 'a') and (a[i] < = 'z') then begin

write (a[i]) ; c : = c + 1; end;

writeln (c) ;

end.

Надеюсь, этот вариант сработает.