Перепишите 3 задачи в PascalABC.NET на парадигмы циклов while или repeat. Параметры ввода: целое положительное число

Дек 5, 2023

Перепишите 3 задачи в PascalABC.NET на парадигмы циклов while или repeat. Параметры ввода: целое положительное число N. Выведите первые N чисел арифметической прогрессии 1, 3, 5, 7, ..., используя цикл while или repeat.
Среди данного набора N положительных целых чисел, сколько из них имеют две цифры?
Дано N целых чисел. Выведите только те, которые делятся на 3, сохраняя их порядок.
Введите ваш вопрос 3 задачи в PascalABC.NET, используя парадигмы циклов while или repeat.

Лягушка_1831

Конечно! Вот примеры решений трёх задач в PascalABC.NET с использованием циклов while и repeat.

1) Задача: Выведите первые N чисел арифметической прогрессии 1, 3, 5, 7, ...

pascal

program Task1;



var

  N, i, num: integer;



begin

  { Вводим значение N }

  write("Введите N: ");

  readln(N);

  

  { Инициализируем переменные }

  i := 0;

  num := 1;

  

  { Выводим первые N чисел арифметической прогрессии }

  while i < N do

  begin

    write(num, " ");

    num := num + 2;

    i := i + 1;

  end;

end.

2) Задача: Среди данного набора N положительных целых чисел, сколько из них имеют две цифры?

pascal

program Task2;



var

  N, i, number, count: integer;



begin

  { Вводим значение N }

  write("Введите N: ");

  readln(N);

  

  { Инициализируем переменные }

  i := 0;

  count := 0;

  

  { Проверяем каждое число на количество цифр }

  repeat

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

    readln(number);

    

    if (number >= 10) and (number <= 99) then

      count := count + 1;

      

    i := i + 1;

  until i = N;

  

  { Выводим результат }

  writeln("Количество чисел с двумя цифрами: ", count);

end.

3) Задача: Дано N целых чисел. Выведите только те, которые делятся на 3, сохраняя их порядок.

pascal

program Task3;



var

  N, i, number: integer;



begin

  { Вводим значение N }

  write("Введите N: ");

  readln(N);

  

  { Инициализируем переменные }

  i := 0;

  

  { Выводим числа, которые делятся на 3 }

  repeat

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

    readln(number);

    

    if number mod 3 = 0 then

      writeln(number);

      

    i := i + 1;

  until i = N;

end.

Надеюсь, эти решения будут полезны для школьников. Если есть ещё вопросы, не стесняйтесь задавать!

Знаешь ответ?

Информатика

Какое название химического элемента было вычеркнуто учеником?

Дек 1, 2023

Информатика

1Сколько возможных пятибуквенных слов можно сформировать при использовании двоичного алфавита?

Дек 1, 2023

Перепишите 3 задачи в PascalABC.NET на парадигмы циклов while или repeat. Параметры ввода: целое положительное число

Лягушка_1831

О проекте

Предметы

Задать вопрос

Привет!