Определить, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха - Turbo Pascal

Формулировка задачи:

На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха.

Код к задаче: «Определить, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха - Turbo Pascal»

textual
var a,s,d,i,sum,c,vin:integer;
begin
writeln('skoko vesit vinni pyx(v grammax)');
readln(vin);
I:=2;
s:=100;
d:=100;
sum:=0;
while sum<=vin do begin  inc(i);
           c:=s+d;
           sum:=(s+d)+sum;
           s:=d;
           d:=c;
 
           end;
 
writeln(i,' den rogden');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.308 из 5


СДЕЛАЙТЕ РЕПОСТ