Даны два числа a и b. Проверить кратность их суммы квадратов числу c. (Паскаль)

Question

Информатика

Антониныч

2 апреля, 00:23

Даны два числа a и b. Проверить кратность их суммы квадратов числу c. (Паскаль)

+1

Ответы (1)

Знаете ответ?

Сеня · Answer 1

Vara, b, c, d:integer; beginreadln (a) ; readln (b) ; readln (c) ; d: = (a+b) mod sqr (c) ; if d=0 then beginwriteln ('Кратно') ; end else writeln ('Не кратно') ; end.