или подскажите хотя бы как делать​


или подскажите хотя бы как делать​

Gurza97 Gurza97    2   06.12.2020 22:32    0

Ответы
Настёна30072003 Настёна30072003  05.01.2021 22:34

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика