Предмет: Информатика,
автор: safarovsadigap8aqle
Ввести с клавиатуры строку символов.Вывести отдельной строкой строчные латинские буквы и подсчитать их количество.
IngridLeroux:
Какой язык программирования нужно использовать?
Ответы
Автор ответа:
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.
Надеюсь, этот вариант сработает.
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.
Надеюсь, этот вариант сработает.
Интересные вопросы
Предмет: География,
автор: juliagimla7
Предмет: Математика,
автор: calakbarli2018
Предмет: Физика,
автор: dikayaangelina
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: работа11