Очень прошу
Задача 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
DimasFed:
Какой язык программирования?
Ответы
Ответ дал:
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.
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад