Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/cee/cee5a54f4ed642e202beef378a49d495.png)
![](https://st.uroker.com/files/955/955f220a70aa8d62141a571e03476ccf.png)
Ответ дал:
0
можно блок схему?
Ответ дал:
0
все добавил !
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад