Сделать программу на паскале + блок схему
15 .Вычислить : 1+2+3+5+8+13+…
Ответы на вопрос
Ответил nkpk
0
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x=');
var mas:= new real[x]; mas[0]:=1; mas[1]:=2;
for var i:=2 to x-1 do
mas[i]:=mas[i-2]+mas[i-1];
mas.Println;
Writeln('Сумма=',mas.Sum)
end.
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x=');
var mas:= new real[x]; mas[0]:=1; mas[1]:=2;
for var i:=2 to x-1 do
mas[i]:=mas[i-2]+mas[i-1];
mas.Println;
Writeln('Сумма=',mas.Sum)
end.
Приложения:
Ответил nurr322
0
можно блок схему?
Ответил nkpk
0
все добавил !
Новые вопросы
Математика,
2 года назад
Физика,
2 года назад
Математика,
7 лет назад
Математика,
7 лет назад
Математика,
8 лет назад
Химия,
8 лет назад