Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад
9 лет назад