Собрать сухие дрова. Разжечь костер. Раздобыть котелок для каши. Налить в котелок воды. Дождаться кипения воды. Раздобыть крупу. Добавить в воду крупу. Мешать крупу. Дождаться приготовления. Снять котелок с кашей с огня.
1.Промойте крупу холодной водой и слейте воду. 2. Налейте в котелок воды в два раза больше, чем объем крупы. 3. Установите котелок с водой над костром. 4. Доведите воду до кипения. 5. В кипящую воду засыпьте крупу. 6. Добавьте соли по вкусу. 7. Дождитесь, когда жидкость на поверхности крупы исчезнет. 8. Накройте котелок крышкой. 9. Доведите кашу до готовности на медленном огне (10 минут).
Basic: DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER CLS INPUT "Введите кол-во тетрадей:"; tetradCount INPUT "Введите кол-во обложек:"; oblojCount
Var f:text; ars:array of string; s,s1:string; min,n,i:integer; begin n:=1; min:=integer.MaxValue; assign(f,'text.txt'); reset(f); while not(Eof(f)) do begin readln(f,s); s1:=s; s:=s.Trim; i:=1; while i<>length(s) do if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i); if ((s.split).length<=min) and ((s.split).length<>0) then begin if (s.split).length=min then begin inc(n); setlength(ars,n); ars[n-1]:=s1; end else begin n:=1; setlength(ars,n); ars[n-1]:=s1; end; min:=(s.split).length; end; end; close(f); assign(f,'text1.txt'); rewrite(f); for i:=0 to n-1 do writeln(f,ars[i]); close(f); end.
Разжечь костер.
Раздобыть котелок для каши.
Налить в котелок воды.
Дождаться кипения воды.
Раздобыть крупу.
Добавить в воду крупу.
Мешать крупу.
Дождаться приготовления.
Снять котелок с кашей с огня.