Вобще это графический редактор
а заливка происходит черным
Var r1,r2,r3,min:real;
begin
writeln('Введите результаты:');
readln(r1,r2,r3);
if r1<r2 then min:=r1 else min:=r2;
if r3<min then min:=r3;
writeln('Лучший результат = ',min);
end.
Пример:
Введите результаты:
12.1 10.8 11.7
Лучший результат = 10.8
Знания это информация и действия применяемые тобой как средства выживания и и.д
Классификации:
1. Классификация на основании предметной области знания. Это деление знаний на математические, гуманитарные, естественные и технические.
2. Классификация на основании способа отображения сущности знаний. Это деление знаний на феноменталистские (описательные) и эссенциалистские (объяснительные, в основе которых лежат количественные средства анализа).
3. Классификация на основании отношения к деятельности тех или иных субъектов. Это деление знаний на дескриптивные (описательные) и перспективные (нормативные, содержащие прямые указания к действию, предписания).
4. Классификация на основании функционального назначения. Это деление знания на фундаментальные, прикладные и разработки.
Вроде так
Может, это уравнение? 3+А=Х?
<span>var a,i:integer;
begin
for i:=1 to 99 do begin
if (i mod 2>0) then
a:=a+i;
end;
write(a);
end.
</span><span>
</span>