Question

произвольное число х вводится с клавиатуры.определить:является ли это число четным,кратно ли 3,крaтно ли 5


нужно написать программу

Answer 1

var x:integer;
begin
write('введите число х='); readln(x);
if x mod 2 = 0 then writeln('Число четное');
if x mod 3 = 0 then writeln('Число кратно 3');
if x mod 5 = 0 then writeln('Число кратно 5');
end.