Поместить 2 (на сковородке 2- лепёшки)
Ждать 1 (обе лепёшки прожарились с одной стороны)
Убрать 1 (в тарелке - 1 полупрожаренная лепёшка и 3 обычных плюс в сковороде ещё 1 полупрожаренная лепёшка)
Перевернуть 1 (в тарелке - 1 полупрожаренная лепёшка и 3 обычных плюс в сковороде ещё 1 полупрожаренная лепёшка, лежащая на непрожаренной стороне) (в дальнейшем не комментирую действия)
Поместить 1
Ждать1
Убрать 1
Перевернуть 1
Поместить 1
Ждать1
Убрать 1
Перевернуть 1
Ждать1
Убрать 1
Перевернуть 1
Ждать1
Убрать 2
Говоря не алгоритмическим языком:
пронумеруем лепёшки цифрами 1 2 3 4 и 5
стороны лепёшек -a и A, b и B, c и C, d и D, e и E соответственно - тогда жарить будем следующим образом:
a b
B c
C d
D e
E A
Итого нам потребуется всего 5 минут.
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
