Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

среди двухзначных чисел найти сумму квадратов цифр которых делится на 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.