помогите пожалуйста, или подскажите хотя бы как делать
Приложения:
![](https://st.uroker.com/files/51f/51f30f382d2072001d0d2389fbc0d93e.jpg)
denismikhailov:
Сейчас сделаю
Ответы
Ответ дал:
1
Ответ:
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад