Нормально? Нужно создать программу с логическим циклом. Program p_1; Uses crt; Var i:integer; Begin Clrscr; i:=1; While i>1000 do begin Write(i); i:=i (sqr(2 3)); end; readln; end.
program fgdg; var o,i: integer; begin i:=0; o:=99; while o<1000 do begin
o:=o 2; if o<1000 then I:=i o;
end; writeln(i); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
