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

Конечно, я помогу с составлением программы на языке Паскаль. Программа будет проверять кратность введенного натурального числа каждому простому числу первого десятка (2, 3, 5, 7). Вот код программы: ```pascal program CheckDivisibility; var num, i: Integer; begin writeln('Введите натуральное число: '); readln(num); if (num mod 2) = 0 then writeln('Число кратно 2'); if (num mod 3) = 0 then writeln('Число кратно 3'); if (num mod 5) = 0 then writeln('Число кратно 5'); if (num mod 7) = 0 then writeln('Число кратно 7'); readln; end. ``` Пользователю предлагается ввести натуральное число. Затем в программе проверяется кратность введенного числа каждому простому числу первого десятка с помощью оператора mod (остаток от деления). Например, если пользователь вводит число 14, то программа выводит "Число кратно 2" и "Число кратно 7", потому что 14 делится на 2 и на 7 без остатка. Надеюсь, данное объяснение и код программы помогут вам! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать.