Маша печет пирожки для бабушки с дедушкой. На одном подносе лежат А пирожков с грибами, на другом В пирожков с картошкой. Маша сначала печет два пирожка с грибами, затем печет
1 пирожок с картошкой. Затем снова 2 пирожка с грибами и 1 пирожок с картошкой. Это продол-
жается до тех пор, пока либо не закончатся пирожки на одном из подносов, либо не останется один
пирожок с грибами. В последнем случае Маша продолжает печь пирожки с картошкой, пока те не
закончатся.
После этого Маша останавливается и зовет Медведя, чтобы тот отнес готовые пирожки бабушке
и дедушке. Сколько всего пирожков Маша отправит дедушке и бабушке?
PascalВыделить код
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 program prg; uses crt; var rez,chislo,min,max:integer; begin Write('Enter number = ');readln(chislo); //zanosim 1 chislo max:=chislo; //v max ta min min:=chislo; //chtobu potom mu soukb sravnivat s drugimi chislamu while (chislo<>0) do //zapuskaem zikl poka mu ne napishem 0 begin if (chislo>max)then max:=chislo; //sravnivaem s max if (chislo<min) then min:=chislo; //sravnivaem s min readln(chislo); //snova pihem chislo end; rez:=(max-min); //nahodim raznizy writeln('max(',max,') - min(',min,') = ',rez); //otvet end.