Даны два натуральных числа а и б требуется определить сумму чисел от а до б



[email protected] в категроии Информатика, вопрос открыт 04.05.2017 в 06:44



Илюза , ответ добавлен 04.05.2017 в 07:12

Var
a, b, s, i: integer;

begin
readln(a);
readln(b);
for i := a to b do
begin
s := s + i;
end;
writeln(s);
end.

0

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.

1 ответ