среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ С ЦИКЛОМ!!!!!ПААСКАЛЬ
More Questions From This User See All
среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ С ЦИКЛОМ!!!!!ПААСКАЛЬ
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.