Задание:
Среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ СЦИКЛОМ! ПААСКАЛЬ
Решение:
var i,s: integer; BEGIN s: =0; for i: =10 to 99 do if i mod 13=0 then s: =s+(sqr (i div 10)+sqr (i mod 10); write (s) END.
Знаете другой ответ?