Написать программу вычислений суммы квадратов двухзначных чисел делящихся на 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.
Не нашли ответ?
Похожие вопросы