1
Вычисли значение y:
var i,n, y:integer;
begin
y:=1;
for i:=1 to 6 do
y:=y+2;
writeln ('y=', y)
end.
2
Вычисли значение y:
var n, y:integer;
begin
y:=10;
n:=2;
while n< 5 do
begin
y:=y+3;
n:=n+1;
end;
writeln (y)
end.
3
Вычисли значение y:
var n, y:integer;
begin
y:=0;
n:=2;
repeat
y:=y+2;
n:=n+1;
until n<8
writeln (y)
end.

Анастасия23102002    2   28.04.2020 16:47    1