Question

Паскаль.
Составить программу по условию:
Вводится натуральное число. Проверить его кратность каждому простому числу первого десятка.
Пожалуйста, очень срочно!!!

Answer 1

program n1;

var a,b: integer;

begin

write('Введите натуральное число: ');

readln(a);writeln('Число ',a,' - кратно: ');

for b:=1 to 9 do

if a mod b=0 then writeln(' числу ',b);

end.

Answer 2

var x,k: integer;

begin

readln(x);

for k:=1 to 9 do

if x mod k=0 then

writeln(k)

end.