Question

Напишите программу на языке Паскаль, чтобы с её помощью можно было найти наименьший общий делитель произвольных десяти целых двузначных чисел. Срочнооооо

Answer 1

1 program Ivan;
2 var
3 m,z:real;
4 i,a,b:integer;
5 begin
6 writeln('Ввести a,b');
7 readln(a,b);
8 if a<b then m:=a else m:=b;
9 for i:=1 to m do if a mod i=0 and b mod i=0 then z=i;
10 writeln(z);
11 end.

Answer 2

Конечно! Вот программа на языке Паскаль для нахождения наименьшего общего делителя (НОД) для произвольных десяти целых двузначных чисел:

pascalCopy code
program FindLCM;

// Функция для нахождения НОД двух чисел
function GCD(a, b: integer): integer;
begin
  if b = 0 then
    GCD := a
  else
    GCD := GCD(b, a mod b);
end;

// Функция для нахождения НОК двух чисел
function LCM(a, b: integer): integer;
begin
  LCM := (a * b) div GCD(a, b);
end;

const
  NumberOfNumbers = 10; // Количество чисел для вычисления НОД

var
  i, num, result: integer;

begin
  writeln('Введите ', NumberOfNumbers, ' целых двузначных чисел:');
  
  // Считываем первое число для инициализации результата
  readln(result);
  
  // Считываем оставшиеся числа и находим НОД для них
  for i := 2 to NumberOfNumbers do
  begin
    readln(num);
    result := LCM(result, num);
  end;

  writeln('Наименьший общий делитель:', result);
end.

Программа запрашивает у пользователя десять целых двузначных чисел и затем находит и выводит их наименьший общий делитель. Просто скопируйте этот код в среду программирования Pascal (например, Lazarus) и запустите его.