Алгоритмический турнир

Ключевое слово АЛГОРИТМ

В вихре задач
Цикл с предусловием
1)
2)
Полное ветвление

В вихре задач
3)
4)
Цикл с параметром
Цикл с предусловием

В вихре задач
program test;
var
N: integer;
S,A: real;
begin
S:=0;
for N:=1 to 5 do
begin
A:=1/N;
S:=S+A*A;
end;
writeln(S:6:4);
readln;
end.
program operation;
var
a,b,c,d: real;
begin
read(a);
read(b);
c:=a*b;
d:=a/b;
writeln(‘a*b=’,c);
writeln(‘a/b=’,d);
end.
Цикл с параметром
Линейный
5)
6)

В вихре задач
program otriz;
var a,b,c: integer;
begin
read(a,b,c);
if a<0 then
begin
S:=S+1;
end;
if b<0 then
begin
S:=S+1;
end;
if c<0 then
begin
S:=S+1;
end;
writeln(S);
end.
Program p;
Var
A,B,C,D: integer;
X, Y: real;
Begin
A:=2;
B:=3;
C:=3;
D:=sqr(B*A+C);
X:=sqrt(d+9) mod 4;
Y:=sqrt(d+9) div 4;
Writeln(X:5:2,Y:5:2)
End.
7)
8)
Неполное ветвление
Линейный

Ответы к заданию №3
Program p1: 0 10
Program p2: 0.0000
108.00000
Program p3: 3 2
Program p4: 14
Program p5: 9
Блок-схема №1 А=4
Блок-схема №2 Max=20
Блок-схема №3 S=6
Блок-схема №4 С=6

Найди ошибку
Program p1;
var a,b,c :integer;
begin
a=-3;
b:=4;
d:=a+b
if d<=4 then begin
d:=sqrt(b)+d;
writeln(d);
end.
1)
, d
;
End;

Найди ошибку
2)
program d;
var s,i,N,x :integer;
begin
s:=0;
a:=8;
read(N);
for i=1 to N do begin
s:=s+a/2;
end;
writeln('s=',s);
end.
,a
Оператор присваивания :=

Найди ошибку
program 3;
var s,i,N,x,a,b:integer;
begin
s:=0;
a:=8;
read(N);
whale a<20 do begin
b:=a-5;
a:=a*a;
end
writeln(b);
end.
3)
Грамматическая ошибка while
;
Имя программы – латинские буквы