program Pr;
const
N = 10;
var
m_ar : array[1..N] of Integer;
A, B, Sum, i: Integer;
begin
WriteLn('Введите число A: ');
ReadLn(A);
WriteLn('Введите число B: ');
ReadLn(B);
m_ar[1] := A;
m_ar[2] := B;
Sum := A + B;
for i := 3 to N do begin
m_ar := Sum;
Sum := Sum + m_ar;
end;
for i:= 1 to N do
WriteLn('m_ar[', i:2, '] = ', m_ar:5);
ReadLn;
end.
Решите задачку,пожалуйста!
Люди добрые,помогите пожалуйста! Вы меня очень спасете!
Нужно решить одну задачу в Паскале! Не думаю,что она составит особого труда,а в ней не разбираюсь!
Также,нужно написать блоку-схему к задаче (со всеми там овалами,ромбами и параллелограмами)!
Очень ПРОШУ :)
Задача:
Даны целые числа N (>2) , A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A,
второй равен B, а каждый последующий элемент равен сумме всех предыдущих..
[SIZE=3][COLOR=red]еще раз так тему назовешь - удалю.[/COLOR][/SIZE]
читаем правила форума.
Нужно решить одну задачу в Паскале! Не думаю,что она составит особого труда,а в ней не разбираюсь!
Также,нужно написать блоку-схему к задаче (со всеми там овалами,ромбами и параллелограмами)!
Очень ПРОШУ :)
Задача:
Даны целые числа N (>2) , A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A,
второй равен B, а каждый последующий элемент равен сумме всех предыдущих..
[SIZE=3][COLOR=red]еще раз так тему назовешь - удалю.[/COLOR][/SIZE]
читаем правила форума.
Код:
Спасибо!
Но я очень тебя прошу - нарисуй мне блок схему...я не умею!
и еще - нельзя ли сделать эту задачу по обыкновенному,написав uses crt,clrscr и.т.д...
Но я очень тебя прошу - нарисуй мне блок схему...я не умею!
и еще - нельзя ли сделать эту задачу по обыкновенному,написав uses crt,clrscr и.т.д...
Вообщем схему я сделал, шлю тебе на мыло!!!!!!!!!
