отыскать сумму всех целых чисел от A до B.

отыскать сумму всех целых чисел от A до B.

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

program zz1;

var a, b, r, i:integer; // задаем переменные целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры 1-ое число

read(a);  

write( введите 2-ое число );  // вводим с клавиатуры 2-ое число

read(b);

for i:=a to b do // организуем цикл, в котором переберем все числа от а до b

r:=r + i; // вычисляем сумму чисел от а до b по формуле

write( сумма чисел от ,a, до ,b, = ,r); // выводим ответ

end.

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


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

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

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

Войти на сайт