Ответы
Ответ дал:
0
var
a, n, b: integer;
begin
readln(a, b);
for n := a to b do
write(n, ' ');
writeln();
writeln(b - a + 1);
end.
==============
var
a, b: integer;
begin
readln(a, b);
writeln((2 * a + (b - a)) * 0.5 * (b - a + 1)); //Через арифм. прогрессию эффективнее
end.
a, n, b: integer;
begin
readln(a, b);
for n := a to b do
write(n, ' ');
writeln();
writeln(b - a + 1);
end.
==============
var
a, b: integer;
begin
readln(a, b);
writeln((2 * a + (b - a)) * 0.5 * (b - a + 1)); //Через арифм. прогрессию эффективнее
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад