Помогите решить задания, пожалуйста №1 x-? a=3,b=18 Var x,a,b:integer; begin Readln(x) a:=0, b=1 while x>0 do begin a:=a 1 b:=b*(x mod 100) end; Write(a); Write(b) End. №2 По фрагменту написать программу, произвести вычисления u:=26 i:=1 to 5 u=u-1 Это написано в блок схеме, если там не видно
№2 var u, i: integer; begin u := 26; for i := 1 to 5 do: u := u - 1; writeln(u); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
