решить все четыре задание написать четыре программы в ответе.перед программой которую вы пишете пишите for2 for3 ... в зависимости от программы которую вы пишете на картинке все программы пронумерованы
Ответы
For2.
var
a, b, i: Integer;
begin
Read (a, b);
for i := a to b do
Write (i, ' ');
WriteLn;
Write ('Количество чисел из диапазона от ', a, ' до ', b, ' = ', b - a + 1);
end.
For3.
var
a, b, i: Integer;
begin
Read (a, b);
for i := a - 1 downto b + 1 do
Write (i, ' ');
WriteLn;
Write ('Количество чисел из диапазона от ', a - 1, ' до ', b + 1, ' = ', a - b - 1);
end.
For7.
var
a, b, i: Integer;
begin
Read (a, b);
Write ('Сумма чисел в диапазоне от ', a, ' до ', b, ' = ', (a + b) * (b - a + 1) / 2)
end.
For8.
var
a, b, i: Integer;
k: Int64;
begin
Read (a, b);
k := 0;
for i := a to b do
k := k + a * b;
Write ('Произведение всех чисел из диапазона от ', a, ' до ', b, ' = ', k);
end.