Введите числа a,b,c. По каждому из них программа должна сказать кратно указанному числу...

Question

Введите числа a,b,c. По каждому из них программа должна сказать кратно указанному числу nили нет

Answer 1

Var a,b,c,n: integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('n='); readln(n);
if a mod n = 0
 then writeln('Число ',a,' кратно ',n) else writeln('Число ',a,' не кратно ',n);
if b mod n = 0
 then writeln('Число ',b,' кратно ',n) else writeln('Число ',b,' не кратно ',n);
if c mod n = 0
 then writeln('Число ',c,' кратно ',n) else writeln('Число ',c,' не кратно ',n);
end.

Пример:
a=10
b=12
c=27
n=4
Число 10 не кратно 4
Число 12 кратно 4
Число 27 не кратно 4