Задачи и блок схемы в документе, времени на 3 задачу, попробуй сама.
1. program
HelloWorld;
var summ,i
:integer;
begin
i:=2;
while i<=200 do
begin
summ := summ + i;
i:=i+2;
end;
writeln(summ)
end.
2.
program
HelloWorld;
var S,i,n:
integer;
begin
<span> while i<6 do</span>
<span> begin</span>
<span> writeln('</span>Введите значение число:');
<span> readln(S);</span>
<span> if S mod 2 = 0 then n:=n+1;</span>
<span> i:=i+1;</span>
<span> writeln(n);</span>
<span> end;</span>
<span> </span>writeln('Количество
четных:');
writeln(n);
end.
Рисунок6.1. Граф неориентированный (а) и ориентированный (б).
1) какой то вопрос неполный, ну может комнатами))