Отыскать сумму всех целых чисел от 0 до b ( Значение

Найти сумму всех целых чисел от 0 до b ( Значение b вводится с клавиатуры )
( ABC Pascal )




8 класс

Задать свой вопрос
1 ответ

var

b, i, sum : integer;

begin

readln (b);

sum:= 0;

for i:= 0 to b do

sum:=sum+i;

writeln (sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт