Пока сверху и не слева стена
вперед
вниз
вниз
вниз
вправо
вправо
вправо
закрасить
пока сверху стена
закрасить вперед
пока не снизу стена
закрасить
вниз
пока снизу стена
закрасить
влево
наверх
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
program raf105;
var
dr: real;
day: integer;
a,b: boolean;
begin
dr:= 0.75;
while not(a) or not(b) do
begin
day:= day+1;
dr:= dr + dr/100*160;
dr:= dr - 0.6;
if day = 6
then begin
writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');
a:= True;
end;
if (dr >= 9) and not(b)
then begin
writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');
b:= True;
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Входы для информации: гнезда (разъёмы для перефирии),CD-DVD-привод , дискетки,сканирование через принтер, ввод с клавиатуры, клик мышкой на опр. знаках, запись с микрофона, из интернета.
Выходы: гнёзда для перефирии, печать ,в интернет, монитор и т.д.