Question

 найти сумму всех целых чисел от A до B.

 

Answer 1

uses crt; 
var a,b,s,i:integer; 

begin 
clrscr; 
readln(a); 
readln(b); 
for i:=a to b do 
begin 
s:=s+i; 
end; 
writeln(s); 
readln; 
end.