Проверьте кратна ли сумма трех произвольных чисел, введенных с клавиатуры, увеличеннная в 15 р, числами 7 и 9 одновременно
Проверьте кратна ли сумма трех произвольных чисел, введенных с клавиатуры, увеличеннная в 15 р, числами 7 и 9 одновременно
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
begin
writeln('введите через пробел три числа');
read (a,b,c);
if (15*(a+b+c) mod 7=0) and (15*(a+b+c) mod 9 =0) then writeln('кратна') else writeln ('не кратна')
end.
Не нашли ответ?
Похожие вопросы