Bsjdnwbsjdwkskavdjclskwbsdjbw d fudjsjxornd f fir dnciebdidjwndpdje
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 пиксели, математические формулы геометрических объектов, фрактальной геометрии
2 Количество битов, кол-во нормалей, кол-во битов
3 малый, большой, средний
4 ухудшается, не изменяется, не изменяется
5 размер файла зависит от размера изображения, качество изображения, качество
6 ухудшение качества при масштабировании, большой размер исходного файла, большой размер
7 Photoshop, Coral Draw , Painter
Вычисление радиуса окружности, описанной вокруг треугольника:
Блок-схема - в прилагаемом файле.
var a,b,c,p,s,r:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
r:=a*b*c/(4*s);
writeln('R = ',r:5:2);
end.
Пример:
3 4 5
<span>R = 2.50</span>