Вычислите сумму данных 100 естественных чисел.Входные данныеВводятся 100 чисел, сумму

Вычислите сумму данных 100 натуральных чисел.

Входные данные
Вводятся 100 чисел, сумму которых необходимо посчитать.

Выходные данные
Программка обязана вывести единственное число - полученную сумму.

Задать свой вопрос
1 ответ
Program n;
uses crt;
var i,x,s:integer;
begin
s:=0;
for i:=1 to 100 do begin
readln(x);
s:=s+x;
end;
writeln(s);
end.
Татьяна
а что означает uses?
Валентина
Модуль.Можно его убрать
Агата Букашина
спс
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт