Даны два числа a и b. Проверить кратность их суммы квадратов числу c. (Паскаль)
Даны два числа a и b. Проверить кратность их суммы квадратов числу c. (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы