лабораторная работа / Лабораторная работа9

Лабораторная работа №9.

Цель работы: овладение практическими навыками разработки алгоритмов и программ, использующих символьные переменные.

Задание: Дано предложение, подсчитать количество слов в нем.

БЛОК СХЕМА. ПРОГРАММА.

Program lab9;

Var s:string; i,n:integer;

Begin

Writeln(‘Vvedite stroky’);

Read(s);

N:=1;

For i:=1 to length(s) do

If S[i]=’ ‘ then n:=n+1;

Writeln(‘n=’, n:5);

End.