На каждом следующем дне рождении Винни съедает столько же меда, сколько съел на двух предыдущих вместе. На двух первых днях рождения у пяточка и кролика он съел по 0,1 кг меда. Определить, сколько кг меда он съест на десятом дн...
На каждом следующем дне рождении Винни съедает столько же меда, сколько съел на двух предыдущих вместе. На двух первых днях рождения у пяточка и кролика он съел по 0,1 кг меда. Определить, сколько кг меда он съест на десятом дне рождении.
Программа должна быть написана с помощью цикла в паскале.
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
s,p,p1:real;
begin
p:=0.1;
p1:=0.1;
for i:=3 to 10 do
begin
s:=p1+p;
p1:=p;
p:=s;
end;
writeln('Ответ: ',s);
end.
Не нашли ответ?
Похожие вопросы