Перепишите 3 задачи на PascalABC.NET с помощью цикла while или repeat. Вернуть первые N чисел арифметической

Вечный_Мороз_7025

17

на 5.
Для данного набора из N целых чисел, найти и вывести максимальное число.
Обратите внимание, что в условии задачи использованы обозначения "N" и "число". Это означает, что вы должны использовать переменную "N" для представления количества чисел, а также переменную "число" для представления текущего числа в последовательности. Обратите также внимание на использование цикла "while" или "repeat" для повторения операций нужное количество раз.

Решение задачи 1:

pascal

program ArithmeticProgression;

var

  N, число, i: integer;

begin

  write("Введите количество чисел N: ");

  readln(N);

  

  число := 1;

  i := 1;

  

  write("Первые ", N, " чисел арифметической прогрессии: ");

  while i <= N do

  begin

    write(число, " ");

    число := число + 2;

    i := i + 1;

  end;

end.

Обоснование: В данном решении мы считываем количество чисел N, затем используем цикл "while" для вывода первых N чисел арифметической прогрессии, где первый элемент равен 1, а разность между элементами равна 2. Внутри цикла мы выводим текущее число в последовательности, затем увеличиваем его значение на 2 и увеличиваем счетчик i. Таким образом, цикл будет выполняться N раз, пока не будут выведены все N чисел арифметической прогрессии.

Решение задачи 2:

pascal

program TwoDigitNumbers;

var

  N, число, двузначные: integer;

begin

  write("Введите количество чисел N: ");

  readln(N);

  

  двузначные := 0;

  

  write("Введите ", N, " чисел: ");

  while N > 0 do

  begin

    readln(число);

    if (число >= 10) and (число <= 99) then

      двузначные := двузначные + 1;

    N := N - 1;

  end;

  

  writeln("Количество двузначных чисел: ", двузначные);

end.

Обоснование: В данном решении мы считываем количество чисел N, затем с помощью цикла "while" считываем N чисел и проверяем, является ли каждое число двузначным. Если число находится в диапазоне от 10 до 99 включительно, то увеличиваем счетчик двузначных чисел на 1. После завершения цикла выводим количество двузначных чисел.

Решение задачи 3:

pascal

program DivisibleByFive;

var

  N, число, i: integer;

begin

  write("Введите количество чисел N: ");

  readln(N);

  

  write("Введите ", N, " чисел: ");

  while N > 0 do

  begin

    readln(число);

    if число mod 5 = 0 then

      writeln(число);

    N := N - 1;

  end;

end.

Обоснование: В данном решении мы считываем количество чисел N, затем с помощью цикла "while" считываем N чисел и проверяем, делится ли каждое число на 5 без остатка. Если да, то выводим это число. После завершения цикла мы выведем только те числа, которые делятся на 5 без остатка.