Question

Сделайте программу Pascal, которая для натурального числа, считываемого с клавиатуры, покажет нам результат вычисления чисел находящихся до заданного числа a) сумма чётных чисел b) сумма нечётных чисел c)сумма чётных и нечётных

Answer 1

Ответ

PascalABC.NET

begin

 var n := ReadInteger();

 var seq := Range(0, n).ToArray;

 Println(seq.Where(x -> x mod 2 = 0).Sum);

 Println(seq.Where(x -> x mod 2 <> 0).Sum);

 Println(seq.Sum);

end.

Answer 2

Для создания программы на языке Pascal, которая выполняет указанные действия, вам понадобится среда разработки Pascal, например, Free Pascal или Turbo Pascal. Ниже приведен пример программы на языке Pascal, которая выполняет заданные операции:

pascalCopy code
program SumOfNumbers;

var
  num, i, sumEven, sumOdd, sumAll: integer;

begin
  sumEven := 0;
  sumOdd := 0;
  sumAll := 0;

  writeln('Введите натуральное число:');
  readln(num);

  for i := 1 to num do
  begin
    sumAll := sumAll + i;
    if i mod 2 = 0 then
      sumEven := sumEven + i
    else
      sumOdd := sumOdd + i;
  end;

  writeln('Сумма чётных чисел до ', num, ': ', sumEven);
  writeln('Сумма нечётных чисел до ', num, ': ', sumOdd);
  writeln('Сумма всех чисел до ', num, ': ', sumAll);

  readln;
end.

Скопируйте код выше в среду разработки Pascal и сохраните его в файле с расширением .pas. Запустите программу, и она попросит вас ввести натуральное число. После ввода она выведет сумму четных чисел, сумму нечетных чисел и общую сумму чисел от 1 до заданного числа.