Question

Задача №1: Напишите программу, которая в последовательности натуральных чисел определяет количество двузначных четных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Задача №2: Напишите программу, которая в последовательности натуральных чисел определяет среднее арифметическое чисел, кратных 7, или сообщает что таких чисел нет (выводит "NO"). Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. PASCAL , задания написать отдельно

Answer 1

===== PascalABC.NET =====

=1=

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> p.IsEven and p.InRange(10, 99)).Print

end.

=2=

begin

 var n := ReadInteger;

 var m := ReadSeqInteger(n)

       .Where(p -> p mod 7 = 0)

       .DefaultIfEmpty

       .Average;

 if m = 0 then

   Print('NO')

 else

   Print(m)

end.

Answer 2

Конечно, давайте начнем с написания программы на языке Pascal для решения задачи №1: определения количества двузначных четных чисел в последовательности.

program CountEvenTwoDigitNumbers;
var
  n, num, count: integer;
begin
  count := 0;

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

writeln('Введите числа:');
  for var i := 1 to n do
  begin
    readln(num);
    if (num >= 10) and (num <= 99) and (num mod 2 = 0) then
      count := count + 1;
  end;

writeln('Количество двузначных четных чисел в последовательности: ', count);
end.

Теперь перейдем ко второй задаче: определению среднего арифметического чисел, кратных 7, или выводу "NO", если таких чисел нет.

program AverageOfMultiplesOfSeven;
var
  n, num, sum, count: integer;
  average: real;
begin
  sum := 0;
  count := 0;

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

writeln('Введите числа:');
  for var i := 1 to n do
  begin
    readln(num);
    if num mod 7 = 0 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  end;

if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое чисел, кратных 7: ', average:0:2);
  end
  else
  begin
    writeln('NO');
  end;
end.

Оба этих примера программ работают с последовательностью натуральных чисел и выполняют заданные операции. Первая программа находит количество двузначных четных чисел, а вторая программа определяет среднее арифметическое чисел, кратных 7, или выводит "NO", если таких чисел нет.