Question

помогите пожалуйста, или подскажите хотя бы как делать​

Answer 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.