1. Var s,k: integer;
Begin
s := 2;
for k := 1 to 3 do
s := s*s;
writeln(s);
End.
ответ: _?_
2. Var s,k: integer;
Begin
s := 1;
for k := 3 downto 0 do
s := s*3;
write(s);
End.
ответ: _?_
3.Var u,i: integer;
Begin
u := 30;
For i := 1 to 6 do
u := u – i;
Writeln(u);
End.
ответ: _?_
4. Var s,k: integer;
Begin
s := 0;
for k := 4 to 10 step 2 do
s := s + 11;
writeln(s);
End.
ответ: _?_

SalamatMaksetov    2   19.05.2020 21:49    47