Определите является ли число полным кратным 5
Определите является ли число полным кратным 5
Гость
Ответ(ы) на вопрос:
Гостьvar a:real; begin write('Введите число '); readln(a); if (frac(a) = 0) and( trunc(a) mod 5 = 0) then writeln('Число ', a ,' кратно 5') else writeln('Число ', a ,' некратно 5') end.
Не нашли ответ?
Похожие вопросы