Олег
5 год назад
Сделать программу на паскале + блок схему15 .Вычислить : 1+2+3+5+8+13+…
ОТВЕТЫ
Осип
Oct 24, 2020
//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.
- можно блок схему?
80
