Ответы
Ответ дал:
0
var
a, b, s, i: integer;
begin
readln(a);
readln(b);
for i := a to b do
begin
s := s + i;
end;
writeln(s);
end.
a, b, s, i: integer;
begin
readln(a);
readln(b);
for i := a to b do
begin
s := s + i;
end;
writeln(s);
end.
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer;
Read(a,b);
Writeln('S=',Range(a,b).Sum)
end.
Пример
6 32
S=513
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer;
Read(a,b);
Writeln('S=',Range(a,b).Sum)
end.
Пример
6 32
S=513
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад