Question

Найти все числа кратные n и не превышающих 100. Паскаль.СРОЧНО

Answer 1

program  raf105;

var a:array[1..100] of integer;

a1,b,n,i:integer;

begin

writeln('Введите число n');

readln(n);

a1:=1;

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

while a1<>0 do

begin

 readln(a1);

 if ((a1 mod n)=0) and (a1<=100) and (a1<>0)

 then

 begin

   b:= b+1;

   a[b]:=a1;

 end;

end;

writeln('Числа картные ',n,' и не превышающие 100');

for i:=1 to b do

writeln(a[i]);

end.

Язык программирования PascalABC

Answer 2

Для поиска всех чисел, кратных заданному числу n и не превышающих 100 в Pascal, вам потребуется использовать цикл для перебора чисел от 1 до 100 и проверять каждое из них на кратность n. Вот пример кода на Pascal:

pascalCopy code
program FindMultiples;

var
  n, i: Integer;

begin
  Write('Введите число n для поиска кратных чисел: ');
  ReadLn(n);

  WriteLn('Числа, кратные ', n, ' и не превышающие 100:');

  for i := 1 to 100 do
  begin
    if i mod n = 0 then
      Write(i, ' ');
  end;

  ReadLn;
end.

В этом коде переменная n будет использоваться для хранения заданного числа, а переменная i будет использоваться в цикле для перебора чисел от 1 до 100. Условие i mod n = 0 проверяет, является ли i кратным числом n, и если это так, то число выводится на экран.