Написать программу, которая подсчитывает количество введённых символов(букв) в тексте, не учитывая пробелов, используя язык программирования "Pascal".

Предыдущий
вопрос Следующий
вопрос

program CountLetters;

var
text: string;
count: integer;
i: integer;

begin
count := 0;

writeln('Введите текст:');
readln(text);

for i := 1 to length(text) do
begin
if text[i] <> ' ' then
begin
count := count + 1;
end;
end;

writeln('Количество символов (букв) в тексте: ', count);
end.