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.

Answer 3

Хорошо, вот программа на языке Паскаль, которая проверяет кратность введенного натурального числа каждому простому числу первого десятка:

pascalCopy code
program CheckMultiplicity;

var
  number, i: Integer;
  primes: array[1..10] of Integer;
  isMultiple: Boolean;

function IsPrime(num: Integer): Boolean;
var
  j: Integer;
begin
  IsPrime := True;
  for j := 2 to Trunc(Sqrt(num)) do
  begin
    if num mod j = 0 then
    begin
      IsPrime := False;
      Break;
    end;
  end;
end;

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

  // Заполняем массив primes первыми десятью простыми числами
  i := 2;
  while i <= 30 do
  begin
    if IsPrime(i) then
    begin
      primes[(i + 1) div 2] := i;
    end;
    Inc(i);
  end;

  // Проверяем кратность введенного числа каждому простому числу
  for i := 1 to 10 do
  begin
    if number mod primes[i] = 0 then
    begin
      WriteLn(number, ' кратно числу ', primes[i]);
      isMultiple := True;
    end;
  end;

  if not isMultiple then
    WriteLn(number, ' не кратно ни одному из простых чисел первого десятка.');
end.

Программа позволяет вам ввести натуральное число и затем проверит его на кратность каждому из первых десяти простых чисел (2, 3, 5, 7, 11, 13, 17, 19, 23, 29). Если число кратно какому-либо из этих чисел, она выведет соответствующее сообщение. Если же число не кратно ни одному из простых чисел первого десятка, программа также выведет сообщение об этом.