Предмет: Информатика,
автор: Alexsa95
Написать программу в паскале,подсчитывающую сколько слов в заданной фразе(предложении)
Ответы
Автор ответа:
0
Program slovo;
const symbols = [ ' ', ';', ':', '-','?','!','.',','];
var s:string;
i:byte;
n:integer;
begin
writeln('введите строку');
readln(s);
for i:=1 to length(s) do begin
if (s[i] in Symbols) and not (s[i-1] in Symbols) then n:=n+1;
end;
writeln('в строке ',n,' слов');
readln;
end.
Похожие вопросы
Предмет: Геометрия,
автор: azizariyy125
Предмет: Русский язык,
автор: aanadandibaeva
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: История,
автор: reptil
Предмет: Литература,
автор: Acura