Предмет: Информатика,
автор: MarkovkaKul
Помогите пожалуйста, Паскаль АБС .
Приложения:

Ответы
Автор ответа:
2
program name;
uses crt;
var str: string;
i, count: integer;
begin
write('Текст : ');readln(str);
i := length(str);
if i > 0 then begin
count := 1;
while i > 0 do begin
if str[i] = ' ' then
count := count + 1;
i := i - 1;
end;
end
else
count := 0;
writeln('Кол-во строк в тексте: ', count);
readln;
end.
Приложения:

Похожие вопросы
Предмет: Биология,
автор: minecraftsd51
Предмет: Қазақ тiлi,
автор: bulkunovaveronika
Предмет: Русский язык,
автор: zabivronni
Предмет: Математика,
автор: 27072009
Предмет: Геометрия,
автор: mirrka2001