Паскаль.Составить программу по условию.
Вводится натуральное число. Проверить его кратность каждому простому числу первого десятка.
Умоляю! Помогите!
Вводится натуральное число. Проверить его кратность каждому простому числу первого десятка.
Умоляю! Помогите!
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.
var x,k: integer;
begin
readln(x);
for k:=1 to 9 do
if x mod k=0 then
writeln(k)
end.