Найти сумму всех чисел от -10 до b(значения b вводится с клавиатуры)

titovazaiceva titovazaiceva    3   24.09.2019 22:23    0

Ответы
kristina1861 kristina1861  16.08.2020 21:47

Объяснение:

Program n1;

var s, b, i: longint;

begin

 writeln('Введите b');

 readln(b);

 s:=0;

 for i:=-10 to b do begin  

   s:=s+i;  

 end;

 writeln('Сумма от -10 до ', b, ' равна ', s);

 readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика