Ответы на вопрос:
3)
var
a:integer;
begin
a:=0;
while a<12 do
begin
writeln ('Весна');
a:=a+1;
end;
end.
4)
var
a,n:integer;
begin
readln(n);
a:=1;
while a<n+1 do
begin
writeln (a*a*a);
a:=a+1;
end;
end.
5)
var
a,b:integer;
begin
readln(a,b);
while a<b+1 do
begin
writeln (a,'*',a,'=',sqr(a));
a:=a+1;
end;
end.
Популярно: Информатика
-
csioucfuo14.06.2021 07:26
-
alis2710p00nvt19.02.2022 09:13
-
angelinadvuradkina22.06.2022 15:19
-
clon408.08.2022 06:56
-
kiraivanova77720.04.2023 19:33
-
marusi22028.01.2020 10:04
-
Zarinaoo26.04.2022 06:49
-
superfifer28.06.2020 04:23
-
violetakoshtura17.03.2020 05:55
-
anma205.04.2021 10:26