• Написать программу на Языке программирования Паскаль для вывода массива где каждое последующее число будет прибавляется к заднему, то есть к примеру 9 7 9+7=16 значит у нас будет такой массив 9 7 16 и т.д.

Ответы 2

  • //Первые два числа генерируются случайным образом в диапазоне [-15;15]const MAX = 250;var  a: array [1..MAX] of integer;  i, n: integer;begin  randomize;  write('Размер массива: ');  readln(n);  a[1] := random(31) - 15;  a[2] := random(31) - 15;  write(a[1]:4, a[2]:4);  for i := 3 to n do  begin    a[i] := a[i - 2] + a[i - 1];    write(a[i]:5);  end;  writeln;end.
    • Автор:

      rafael48
    • 6 лет назад
    • 0
  • PascalABC.NET 3.4// без массиваbegin  var (a, b) := ReadInteger2('Задай два первых числа ');  var n := ReadInteger('Сколько всего чисел надо?');  Print(a, b);  for var i := 3 to n do  begin    (a, b) := (b, a + b);    Print(b)  endend.// с массивомbegin  var n := ReadInteger('Сколько всего чисел надо?');  var a := new integer[n];  (a[0], a[1]) := ReadInteger2('Задай два первых числа ');  for var i := 2 to n - 1 do    a[i] := a[i - 1] + a[i - 2];  a.Printlnend.
    • Автор:

      lillys64m
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years