Question

4. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, неделящееся 6. Программа должна вывести одно число – минимальное число, неделящееся на 6. В паскале. Очень нужно!!!

Answer 1

Ответ:

Объяснение:

program MinNonDivisibleBySix;

var

 n, num, min: integer;

begin

 writeln('Введите количество чисел в последовательности:');

 readln(n);

 min := MaxInt;

 for var i := 1 to n do

 begin

   writeln('Введите число ', i, ':');

   readln(num);

   if (num mod 6 <> 0) and (num < min) then

     min := num;

 end;

 writeln('Минимальное число, не делящееся на 6: ', min);

end.