1) Составить программу для нахождения суммы первых n натуральных чисел (n вводим с клавиатуры).
2) Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечётных чисел в порядке убывания.

1. Сумма первых \(n\) натуральных чисел.

Программа на PascalABC.NET:
var n, i, s: integer;
begin
  readln(n);
  s := 0;
  for i := 1 to n do
    s := s + i;
  writeln(s);
end.

Переменная \(s\) сначала равна \(0\), затем в цикле к ней прибавляются числа от \(1\) до \(n\).

2. Таблица квадратов первых пяти положительных нечётных чисел в убывающем порядке.

Программа на PascalABC.NET:
var i: integer;
begin
  for i := 9 downto 1 do
    if i mod 2 = 1 then
      writeln(i, ' ', i * i);
end.

Программа выведет числа \(9, 7, 5, 3, 1\) и их квадраты.

0 0 Пожаловаться