Напишите решение к примеру(найти сумму всех целых чисел от -10 до b (значение b вводится с клавиатуры; b> a))программа pascalabc.net

MyNyanKet MyNyanKet    3   04.06.2019 04:50    1

Ответы
dianaaloyts dianaaloyts  17.05.2020 13:43
Если a -  это -10 :
var b,i,s:integer;
begin
s:=0;
read (b);
if (b>-10) then
begin
for i:=-10 to b do
begin
s:=s+i;
end;
end;
writeln (s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика