Написать программу, которая подсчитывает количество введённых символов(букв) в тексте, не учитывая пробелов, используя язык программирования "Pascal".
Answers & Comments
Hasl1337
Var s: string; i, count: integer; begin write('Введите текст: '); readln(s); for i := 1 to length(s) do if(s[i] <> ' ') then inc(count); writeln('Кол-во символов: ', count); end.
Answers & Comments
begin
write('Введите текст: '); readln(s);
for i := 1 to length(s) do
if(s[i] <> ' ') then inc(count);
writeln('Кол-во символов: ', count);
end.