Помогу только со вторым заданием. Прости(
Также сверху ставится один значок, я его найти не смогла, поэтому буду помечать как "значок". На всякий случай оставлю рисунок, как он выглядит.
НЕ (Ударение на первый слог) И (Количество букв четное)
Корова - 0 (сверху значок) = 1 × 1 = 1
Козел - 0 (сверху значок) = 1 × 0 = 0
Кошка - 1 (сверху значок) = 0 × 0 = 0
Конь - 1 (сверху значок) = 0 × 1 = 0
Ответ: корова.
—
Удачи)))
Есть ошибки в запуске, это бывает при удалении изменении файлов в главной папке или же без наличия нужных ресурсов программ для работы приложения
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>
1. <span>Г) Логической
2. </span><span>Б) Формат</span>