Предмет: Информатика,
автор: alyonka9
Определите является ли число полным кратным 5
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Биология,
автор: alexdeus41
Предмет: История,
автор: vladgus3v
Предмет: Русский язык,
автор: murtazinaelvira
Предмет: Алгебра,
автор: 97rina97
Предмет: Литература,
автор: лиля2004