Информатика, опубликовано 2018-08-22 23:29:14 by Гость
Напишите решение пожалуйста к примеру(Найти сумму всех целых чисел от -10 до b (значение b вводится с клавиатуры; b>a))Программа PascalABC.net
Ответ оставил Гость
Если 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.