Определите является ли число полным кратным 5
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
