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

Question

Информатика

Ленуша

9 ноября, 23:46

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

+3

Ответы (1)

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

Богдана · Answer 1

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.