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

Question

Информатика

Миша

30 ноября, 05:29

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

+2

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