Предмет: Информатика,
автор: Daria100
среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ С ЦИКЛОМ!!!!!ПААСКАЛЬ
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: ОБЖ,
автор: valeriasuharnikova
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: Salekas
Предмет: Биология,
автор: XsLady
Предмет: Обществознание,
автор: Belchonoc