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

Question

Информатика

Жела

21 марта, 14:21

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

+5

Ответы (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.