Ответы на вопрос:
1.
var i:Integer;
begin
i:=30;
while i <> 71
do begin
writeln(i);
i:=i+1;
end;
end.
2.
var i:Integer;
begin
i:=1;
while i <> 31
do begin
writeln('Имя Фамилия');
i:=i+1;
end;
end.
Популярно: Информатика
-
pomogyte6721.05.2021 07:20
-
ylmor228l12.07.2021 10:30
-
vikulek122.02.2020 19:54
-
Aleksandrik080613.06.2020 01:56
-
gumarin7824.07.2020 22:20
-
zari2108.12.2022 03:36
-
Shkolnik1234567891013.06.2023 09:10
-
aarianna08.03.2023 01:58
-
antonenko6206.05.2022 12:28
-
labzinaveronika06.04.2022 23:57