Конструктор алгоритмов. Составить программу по условию.
Вводится натуральное число. Проверить его кратность каждому простому числу первого десятка. Заранее спасибо!
Вводится натуральное число. Проверить его кратность каждому простому числу первого десятка. Заранее спасибо!
More Questions From This User See All
Answers & Comments
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.