Question

Помогите,пожалуйста,составить программу в PascalABC.NET Рассмотрите ряд натуральных чисел от 1 до 100. Каждое четное число в этом ряду увеличьте в 2 раза, а каждое нечетное – в 3 раза. Результат выведите на экран

Answer 1

// PascalABC.NET версия 3.6.2 сборка 2406 от 14.04.2020

begin

 (1..100).Select(p -> p.IsEven ? 2 * p : 3 * p).Print

end.

Answer 2

Конечно, вот пример программы на PascalABC.NET, которая выполняет описанные вами действия:

pascalCopy code
program ModifyNumbers;

var
  i: Integer;

begin
  for i := 1 to 100 do
  begin
    if i mod 2 = 0 then
      Write(i * 2, ' ')
    else
      Write(i * 3, ' ');
  end;
end.

Сохраните этот код в файл с расширением .pas, откройте его в PascalABC.NET и скомпилируйте. Программа выведет на экран измененный ряд чисел от 1 до 100 в соответствии с указанными условиями.