Паскаль, подсчитать количество букв в каждом слове предолжения, тема строки и множества

UoYFer UoYFer    3   11.09.2019 23:20    3

Ответы
mrfurkan mrfurkan  26.08.2020 19:17
ReadLn(stroka);
a:= length(stroka);
for i:= 1 to a do
   if stroka[I] == ' ' then b:= b + 1;
a:= a - b;
WriteLn(a);
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика