Составьте в паскаль с while. на каждом следующем дне рождения винни пух съедает столько же меда, сколько съел на двух предыдущих вместе. на двух первых днях рождения у пятачка и кролика он съел по 100 г меда. определите, сколько килограммов меда он съест на десятом дне рождения.
var m1,m2,s,i:integer;
begin
m1:=100; m2:=100;
for i:=3 to 10 do
begin
s:=m1+m2;
m1:=m2;
m2:=s;
end;
writeln(s);
end.
Результат:
5500