Var i, sum: integer; begin sum := 0; for i := 1 to 50 do {answer too big => -24908} begin sum := sum i * i * 4 end; writeln('Sum = ', sum); readln(i) {programm don't stop and so can read answer} end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
