Код к задаче: «Вывести число в обратном порядке - Pascal» var x1,x2,h,i,s:integer; begin write('x1=');readln(x1); write('h=');readln(h); x2:=2*x1 h; i:=2; s:=x1 x2; while i<=8 do begin i:=i 1; x1:=x2; x2:=2*x1 h; s:=s x2; if i=5 then writeln('Пятый элемент=',x2); if i=7 then writeln('Сумма=',s); if i=8 then write('Восьмой элемент=',x2); end; readln end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
