Выведите числа , являющиеся квадратами двухзначных чисел. Паскаль !!!! Очень срочн
Выведите числа , являющиеся квадратами двухзначных чисел. Паскаль !!!!
Очень срочно !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гость Var
i,d,e:integer;
begin
for i:=10 to 99 do
begin
d:=i div 10; e:=i mod 10;
if ((sqr(d)+sqr(e)) mod 13)= 0 then Write(i,' ')
end
end.
Результат выполнения программы:
15 18 23 32 46 47 51 64 69 74 79 81 96 97
Не нашли ответ?
Похожие вопросы