Составьте в паскаль с while. на каждом следующем - вопрос №5008317 от NoAl3 08.04.2023 05:47

Question

Информатика: Составьте в паскаль с while. на каждом следующем дне рождения винни пух съедает столько же меда, сколько съел на двух предыдущих вместе. на двух первых днях рождения у пятачка и кролика он съел по 100 г меда. определите, сколько килограммов меда он съест на десятом дне рождения.

NoAl3 · Answer

Числа Фибоначчи (вместо 1 только 100)!var m1,m2,s,i:integer;beginm1:=100; m2:=100;for i:=3 to 10 do begin s:=m1+m2; m1:=m2; m2:=s; end;writeln(s);end.Результат:5500...