На каждом следующем дне рождения винни пух съедает столько же меда, что и на двух предыдущих. на двух первых днях

Question

Информатика: На каждом следующем дне рождения винни пух съедает столько же меда, что и на двух предыдущих. на двух первых днях рождения у пяточка и у кролика он съел по 100 г меда. написать программу, определяющую, сколько килограммов меда съест винни пух на -ом дне рождения. формат входных данных во входном файле задано единственное число (1 до 40). формат выходных данных выведите, сколько килограммов меда съест винни пух на этот день рождения с точностью до одного знака после десятичной точки.

mranishanbaev · Answer

Var  n,a,b,c,c2,i:integer;Begin  Write( Введите число );  Readln(n);  a:=100;b:=100;  for i:= 1 to n do Begin  c:=a+b;  a:=b;  b:=c;  End;  c2:=c div 1000;  write(c2, . );  c:=c div 100 mod 10;  write(c, кг съел Винни );End.  ...

Популярные вопросы