Ввести с клавиатуры строку символов.Вывести отдельной строкой строчные латинские буквы и подсчитать их количество.
Ответы
Ответ дал:
0
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.
Надеюсь, этот вариант сработает.
Ответ дал:
0
С кавычками всё в порядке, мой компилятор не ругается. Но я неправильно написала length (это уже правильный вариант), поэтому твой компилятор ругается. Исправь и всё сработает.
Ответ дал:
0
неправильно написание длины строки я сразу заметил и исправил,все таки дело в паскале,который ругается на кавычки.
Ответ дал:
0
Наверно, попробуй проверить на онлайн компиляторе.
Ответ дал:
0
Спасибо за помощь,программа заработала)
Ответ дал:
0
Не за что!)
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад