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.
ответ: _?_
134
500
Ответы на вопрос:
Популярно: Информатика
-
рапкмаркмарк28.10.2020 06:58
-
konovalova70114.08.2020 15:22
-
nikitinallllll22.08.2022 07:19
-
Mamishbdjsnb19.04.2020 14:43
-
aleksandrsamor13.02.2021 00:56
-
3profile1anna214.06.2020 05:14
-
мака200711.07.2020 18:59
-
DedSToporom28.01.2020 19:58
-
BOSS65303.10.2022 05:13
-
merit605227.04.2023 06:12