Определите является ли число полным кратным 5

Question

67

Определите является ли число полным кратным 5

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

sergey303 · Accepted Answer

55

sergey303

29 марта 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: