Предмет: Информатика,
автор: 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.
Похожие вопросы
Предмет: Английский язык,
автор: kdiasbek000
Предмет: Математика,
автор: davidleshchev
Предмет: Математика,
автор: vanam9510
Предмет: Обществознание,
автор: slava02
Предмет: Математика,
автор: Dastan96