Question

Очень прошу

Задача 3


Посчитайте сумму всех чисел на полуинтервале [a; b) или [b; a), в зависимости от того, какое число больше.
Пример ввода:10 1
Пример вывода:
45

Задача 4
Посчитайте сумму квадратов всех чисел, находящихся в полуинтервале [a, b) или [b, a), и выведите ее на экран.

Пример ввода:8 4
Пример вывода:
126

Задача 5
Числа Фибоначчи – известная числовая последовательность, в которой первые два члена равны единице, а каждый последующий получается сложением двух предыдущих. По введенному числу n выведите n чисел Фибоначчи.

Пример ввода:8
Пример вывода:
1 1 2 3 5 8 13 21

Answer 1

Ответ:

pascal

Объяснение:

program summa_3;

var

 a, b, s:  integer;

begin

 Write('Ведите числа a и b: ');

 ReadLn(a, b);

 if b < a then Swap(a, b);

 while a < b do

   begin

     s := s + a;

     a := a + 1;

   end;

 WriteLn(s);

end.

program summa_4;

var

 a, b, s:  integer;

begin

 Write('Ведите числа a и b: ');

 ReadLn(a, b);

 if b < a then Swap(a, b);

 while a < b do

   begin

     s := s + sqr(a);

     a := a + 1;

   end;

 WriteLn(s);

end.

program fibo_5;

var

 a, b, s, i, n:  integer;

begin

 Write('Ведите n: ');

 ReadLn(n);

   a := 0;

   b := 1;

   Write(b,' ');

   for i := 2 to n do

   begin

       Write(a + b,' ');

       s := b;

       b := a + b;

       a := s

   end;

end.