Пишу с телефона если есть возможность-проверь.Если справился,буду рад)
Uses CRT;
Var a,b,c,D,x,x1,x2 : integer;
Begin
D:=0;
Writeln('Дано уравнение ax^4+bx^2+c=0,введите а,b,c);
Readln(a);readln(b);readln(c);
D:=b*b - 4*a*c;
If D<0 then writeln('Нет корней');if X=0 then writeln('Уравнение имеет 1 корень-',(-b/2a)*b');
if D>0 then begin
x1:=(-b+ sqrt D)/2a;
x2:=(-b- sqrt D)/2a;
writeln('Корни вашего уравнения:');writeln('x1=',x1*b,'x2=',x2*b);
End;
End.
Program Posled;
Var
a, b, sum1, sum2, sum3: integer;
Begin
read (a,b);
sum1 := (a mod 10) + (b mod 10);
sum2 := (a div 10 mod 10) + (b div 10 mod 10);
sum3 := (a div 100 mod 10) + (b div 100 mod 10);
if ((sum3 > sum2) and (sum2 > sum1)) then
write('OK')
else
write('NO');
<span>End.</span>
Var
a, b, c, min : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then min := a
else if (b <= a) and (b <= c) then min := b
else min := c;
write (min);
end.
21. Рассмотрим прямоугольник, помеченнный звёздочкой (см. рисунок). Пусть он закрашен каким-то цветом. Он окружен четырьмя областями, для их закраски нужно не меньше двух дополнительных цветов. Но тогда цвет всех остальных областей, кроме желтой, определяется однозначно, но жёлтую никаким цветом закрасить не получится. Значит, трёх цветов не хватит. Пример раскраски четырьмя красками на рисунке.
22. Он может развести все 8 мостов. Сначала он добирается на мост 2, затем идёт 2-3 (разводит), 3-4, 4-1 (разводит), 1-5, 5-1 (разводит), 1-2 (разводит), 2-5 (разводит), 5-3 (разводит), 3-4 (разводит), 4-5 (разводит).
23. Теги font меняют свойства текста между <font> и </font>. На картинке показано более чётко, что в один и тот же тег попали строчки 2 и 4, эти строки будут одного цвета.