Добавить в программу подсчет слов. Program Stroka; var S;S1 : string ; p : intenger ; begin writeln ('vvedite s'); readln(s); p:=pos(' ', s); while (p0) do (пока есть пробелы) begin S1 := copy(s,1,P); writeln(S1); delete (s,1,P); P := Pos(' ',S); end; S := up case(S); writeln(s) readln; end.
//Автора кода в средневековье бы уничтожила инквизиция //Pascal ABC.NET v3.1 сборка 1219
Program Stroka; var S,S1 : string ; p,k : integer ; begin writeln ('vvedite s'); readln(s); p:=pos(' ', s); while (p<>0) do begin S1 := copy(s,1,P); writeln(S1); delete (s,1,P); P := Pos(' ',S); inc(k); end; S[1]:= upcase(S[1]); writeln(s); writeln('Count of words=',k 1); end.
Пример ввода: Simple some test text Пример вывода: Simple some test Text Count of words=4
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
