Предмет: Информатика,
автор: v9542625
4. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, неделящееся 6. Программа должна вывести одно число – минимальное число, неделящееся на 6. В паскале. Очень нужно!!!
Ответы
Автор ответа:
0
Ответ:
Объяснение:
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.
Похожие вопросы
Предмет: Математика,
автор: irinakuncevic8
Предмет: Литература,
автор: Аноним
Предмет: Информатика,
автор: yaremchuk04yana
Предмет: Математика,
автор: sofa1252
Предмет: Русский язык,
автор: nutipgoogl11