Среди двухзначных чисел найти сумму квадратов цифр которых делится…

Question

Среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ СЦИКЛОМ! ПААСКАЛЬ

Answer 1

41

maxhim

30 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить