Написать программу вычислений суммы квадратов двухзначных чисел делящихся на 8 (10;99)

Написать программу вычислений суммы квадратов двухзначных чисел делящихся на 8 (10;99)
Гость
Ответ(ы) на вопрос:
Гость
Program n1;var sum,i: integer;beginsum:=0;for i:=10 to 99 do if i mod 8 =0 then sum:=sum+i*i;writeln(sum);end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы