2 лепешки просто - на одну сторону положила, 1 мин пожарила, перевернула, еще 1 мин пожарила, сняла. 2 мин. 3 лепешки сложнее, но можно уложиться в 3 мин. Положила 2 лепешки на одну сторону, пожарила 1 мин. Одну лепешку сняла, вместо нее положила 3-ью, а 2-ую перевернула. Пожарила 1 мин. 2-ую лепешку сняла готовую, положила 1-ую, а 3-ью перевернула. Пожарила 1 мин. Всего 3 мин. 4 и 5 лепешек точно также можно пожарить за 4 и 5 мин. Одну пожарила с одной стороны и заменила на 3-ью, 2-ую перевернула. Потом также 4 и 5.
Uses crt; var r: array [1..10] of integer; nev, n, min,i, zap:integer; begin clrscr; write('Введите возраст невесты: '); readln(nev); write('Введите число женихов: '); readln(n); if n<2 then for i:=1 to n do begin write('Введите возраст ',i,'-го жениха: '); readln(r[i]); end;
i:=0; zap:=0; while (zap=0) and (i<=n) do begin i:=i+1; min:=nev-r[i]; if min>0 then zap:=i; end; if i<>n then begin for i:=zap to n do begin if min>(nev-r[i]) then begin zap:=i; min:=nev-r[i]; end; end; writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.'); writeln ('По счету это ',i,'-ый жених'); end else writeln('Среди женихов нет подходящего для нашей невесты.'); end; else writeln('Число женихов должно быть более 2!'); end.
еще 1 мин пожарила, сняла. 2 мин.
3 лепешки сложнее, но можно уложиться в 3 мин.
Положила 2 лепешки на одну сторону, пожарила 1 мин.
Одну лепешку сняла, вместо нее положила 3-ью, а 2-ую перевернула.
Пожарила 1 мин.
2-ую лепешку сняла готовую, положила 1-ую, а 3-ью перевернула.
Пожарила 1 мин.
Всего 3 мин.
4 и 5 лепешек точно также можно пожарить за 4 и 5 мин.
Одну пожарила с одной стороны и заменила на 3-ью, 2-ую перевернула.
Потом также 4 и 5.