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

пптл пптл    3   22.08.2019 00:50    0

Ответы
egor2002browhnq9 egor2002browhnq9  05.10.2020 11:03
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика