Считать с клавиатуры последовательность символов и выводит на экран количество считанных букв - Turbo Pascal

Формулировка задачи:

Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран кол-во считанных букв. Вводимые символы разделяются с помощью клавиши <ENTER>. Предполагается, что можно вводить строчные и прописные буквы латинского алфавита и символ <*> является признаком конца последовательности.

Код к задаче: «Считать с клавиатуры последовательность символов и выводит на экран количество считанных букв - Turbo Pascal»

textual
var
 i : integer;
 a : char;
Begin
 i:=0;
 Repeat
  readln(a);
  if (a in ['A'..'Z']) or (a in ['a'..'z']) then inc(i);
 Until a='*'; 
 
 writeln(' Введено букв: ', i);
 readln;
End.

11   голосов, оценка 3.909 из 5


СОХРАНИТЬ ССЫЛКУ