Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Суррикат Мими

(Паскаль)
написать программы, которые заполняют массив числами с арифметической прогрессией и числами фибаначи

более месяца назад
Просмотров : 17    Ответов : 1   

Лучший ответ:

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Write(Ряд натуральных чисел:);
For i:= 1 to N do
    Begin
    A[i]:=i;
    Write( ,A[i])
    End;
End.



Const
   N = 13;
Var
   A,B,C:longint;
   i:integer;
   M:array[1..N] of longint;
Begin
A:=0;
B:=1;
M[1]:=1;
For i:= 2 to N do
    Begin
    A:=B+A;
    M[i]:=A;
    C:=A;
    A:=B;
    B:=C;
    End;
For i:= 1 to N do
    Write(M[i], );
End.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы:





Главный Попко
Дан массив из 50 случайных чисел из диапазона от 0 до 100.Произведите сортировку массива методом "пузырёк" и найдите сумму первого и последнего элементов отсортированного массива .Я уже написала программу но не могу и не знаю как найти эту сумму,помогите пожалуйста

program bubble;
<...
более месяца назад
Смотреть ответ   Просмотров : 24    Ответов : 1