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

Question

Информатика

Миша

4 июля, 19:11

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

+3

Ответы (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.