Question

1. Напишите программу, где пользователь вводит любое целое положительное число. А программа суммирует все числа от 1 до введенного пользователем числа.

Answer 1

Ответ:

program Summa;

var

 n, s, i: Integer;

begin

 Write ('Введите число: ');

 ReadLn (n);

 s := 0;

 for i := 1 to n do

   s := s + i;

 WriteLn ('Сумма = ', s);

 ReadLn;

end.