Вычисли значение 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: целое число;
начать
y:=10;
n:=2;
пока Н
начать
y:=y+3;
n:=n+1;
конец;
writeln (y)
конец.
3
Вычисли значение y:
var n, y: целое число;
начать
y:=0;
n:=2;
повторять
y:=y+2;
n:=n+1;
пока n
writeln (y)
конец.

Зара7878    3   27.04.2020 15:51    1