Question

Пользователь вводит последовательность из 20 нат. чисел.Проверить есть ли в последовательности 5 нечётных чисел меньше 10. Отдаю все баллы нужно очень завтра или после завтра пожалуйста пишите на Паскале

Answer 1

var num, flag, i: Integer;

begin

   flag := 0;

   for i := 1 to 20 do

   begin

       Read(num);

       if ((num mod 2 = 1) and (num < 10)) then flag := flag + 1;

   end;

   

   if flag > 4 then Writeln('Yes') else Writeln('No')

end.

Можно написать и более эффективную программу, но и так сойдёт, думаю. И да, если требуется наличние ровно 5 чисел (не больше и не меньше), то замените flag > 4 на flag = 5.

Answer 2

Конечно! Ниже представлена программа на языке Pascal, которая позволяет пользователю ввести последовательность из 20 натуральных чисел и проверить, есть ли в этой последовательности 5 нечётных чисел, которые меньше 10.

pascalCopy code
program CheckOddNumbers;

var
  numbers: array[1..20] of Integer;
  i, oddCount: Integer;
  currentNumber: Integer;
  
begin
  // Ввод последовательности из 20 натуральных чисел
  writeln('Введите последовательность из 20 натуральных чисел:');
  for i := 1 to 20 do
  begin
    repeat
      write('Число ', i, ': ');
      readln(currentNumber);
    until currentNumber > 0; // Проверка на натуральное число
    numbers[i] := currentNumber;
  end;
  
  // Проверка наличия 5 нечётных чисел меньше 10
  oddCount := 0;
  for i := 1 to 20 do
  begin
    if (numbers[i] < 10) and (numbers[i] mod 2 = 1) then
      Inc(oddCount);
      
    if oddCount >= 5 then
      Break; // Если найдено 5 нечётных чисел, выходим из цикла
  end;
  
  // Вывод результата
  if oddCount >= 5 then
    writeln('В последовательности есть 5 или более нечётных чисел меньше 10.')
  else
    writeln('В последовательности нет 5 нечётных чисел меньше 10.');
end.

Программа запросит у пользователя ввод 20 натуральных чисел и затем проверит, есть ли среди них 5 или более нечётных чисел, которые меньше 10. В результате выполнения программы будет выведено соответствующее сообщение.