Предмет: Информатика,
автор: SaDFlower0408
Напишите программу для подсчёта количества слов в любом предложении(придумайте сами какое хотите)
Ответы
Автор ответа:
0
Var s:String;i, k:integer;
Begin
Writeln('введите предложение') ;readln(s) ;
K:=0;
For i:=1 to Length(s) do begin
If s[i]=' ' then k:=k+1;
End;
K:=k+1;
Writeln('колво слов в предлодении:', k) ;
End.
Вроде бы так
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Математика,
автор: solomiamis20
Предмет: Химия,
автор: theonego
Предмет: История,
автор: Drinka1260
Предмет: Биология,
автор: viktoriaboyko1837