Question

ДАМ 50 БАЛЛОВ Напишите программу в паскале, которая найдёт все числа от 1961 до 9611 которые делятся на 42 без остатка, и не делятся на 4,5,13.

Answer 1

Объяснение:

var x,y,f,g:integer;

begin

 for var i:=1961 to 9611 do

   if ((i mod 42=0) and (i mod 4<>0) and (i mod 5 <>0) and (i mod 13<>0)) then

     writeln (i);

end.

Answer 2

Хорошо, вот пример программы на Pascal:

pascalCopy code
program FindNumbers;

var
  i: Integer;

begin
  for i := 1961 to 9611 do
  begin
    if (i mod 42 = 0) and (i mod 4 <> 0) and (i mod 5 <> 0) and (i mod 13 <> 0) then
      writeln(i);
  end;
end.

Эта программа использует цикл for для проверки каждого числа от 1961 до 9611. Условие if проверяет, делится ли число на 42 без остатка и не делится ли на 4, 5 и 13. Если все условия выполняются, число выводится на экран.