Question

Найти: а) сумму всех целых чисел от 100 до 500; б) сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a 500); в) сумму всех целых чисел от –10 до b (значение b вводится с клавиатуры; b –10); г) сумму всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a).

Answer 1

А) var a,sum,i:integer;
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

б) var a,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

в) var b,sum,i:integer;
begin
sum:=0;
writeln('Введите число b');
readln(b);
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.

г) var a,b,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.