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

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] gt;= 'a') and (a[i] lt;= 'z') then begin
write (a[i]); c := c + 1; end;
writeln (c);
end.

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

Толкаев Колян 2019-08-02 10:55:24

Строка случайная,она может состоять как и из строчных,так и строчных букв,например,если я введу строку 'InFormAtika',программа обязана отдельной строкой вывести 'normtika' и кол-во строчных букв,одинаковое 8.

Jemilija Korenivskaja 2019-08-02 10:58:15

Хорошо. Я перепишу программу.

Vadim Tuleulov 2019-08-02 11:01:25

бранится на внезапный знак ' ' в седьмой строке.

Аня Корганян 2019-08-02 11:04:14

Пробуй поменять на " ", может посодействовать.

Мирослава Прозвицкая 2019-08-02 11:10:51

у меня есть теория,что у меня с паскалем трудности,т.к. он бранится на ту строчку,где этих кавычек нет.Ты можешь проверить программу у себя?

Светлана Рехтман 2019-08-02 11:20:04

С кавычками всё в порядке, мой компилятор не бранится. Но я неправильно написала length (это уже верный вариант), поэтому твой компилятор бранится. Исправь и всё сработает.

Aleksej Kurchetov 2019-08-02 11:21:25

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

Максим Укусников 2019-08-02 11:22:37

Наверное, пробуй проверить на онлайн компиляторе.

Настя Развозова 2019-08-02 11:23:30

Спасибо за помощь,программка заработала)

Мирослава Апинянская 2019-08-02 11:28:40

Не за что!)

О проекте

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

Добро пожаловать!