Предмет: Информатика, автор: chessmaster46

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

Ответы

Автор ответа: fedrfedr
0

Ответ:

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.

Похожие вопросы
Предмет: Право, автор: lydmylakr
Предмет: География, автор: proroll1403
Предмет: Алгебра, автор: mooms548666