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

alyafalendysh alyafalendysh    1   21.06.2019 08:00    0

Ответы
DashaHB16 DashaHB16  02.10.2020 07:15
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика