Ответы
Ответ дал:
1
Ответ:
Объяснение:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
2 года назад
2 года назад
7 лет назад