Ж жендос Регистрация 28 Июл 2013 Сообщения 75 Репутация 0 Спасибо 0 Монет 0 19 Апр 2019 #1 Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно.
I ilya_yad Регистрация 17 Окт 2013 Сообщения 71 Репутация 0 Спасибо 0 Монет 0 19 Апр 2019 #2 var sum: integer; a: integer; b: integer; begin sum:=0; for i:=a to b do sum:=sum+i; writeln(sum); end; Позитивный голос 0
var sum: integer; a: integer; b: integer; begin sum:=0; for i:=a to b do sum:=sum+i; writeln(sum); end;
Q qsqs Регистрация 11 Авг 2013 Сообщения 76 Репутация 0 Спасибо 0 Монет 0 19 Апр 2019 #3 =(A+B)*(B-A+1)/2 Позитивный голос 0
1 192837465 Регистрация 6 Дек 2012 Сообщения 89 Репутация 0 Спасибо 0 Монет 0 19 Апр 2019 #4 var summ:longint; ... for i:=a to b do summ:=summ+i;writeln(summ); Позитивный голос 0