Ответы
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=ReadInteger2;
var s:=0;
while a<=b do
begin
s+=a;
inc(a);
end;
write('сумма: ',s);
end.
//Версия 3.3, сборка 1634
begin
var (a,b):=ReadInteger2;
var s:=0;
while a<=b do
begin
s+=a;
inc(a);
end;
write('сумма: ',s);
end.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад