<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
</span>
begin
var (a,b):=ReadInteger2('Введите a,b,c,d->');
var (c,d):=ReadInteger2;
Write('Корни: ');
for var x:=0 to 1000 do
if a*x**3+b*x**2+c*x+d=0 then Write(x,' ');
end.
Пример:
Введите a,b,c,d-> 1 -3 -13 15
Корни: 1 5
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, эти строки будут одного цвета.
Var a,b,c:integer;
begin
writeln('Вычесление периметра треугольника.');
writeln('Введите значение стороны a.');
readln(a);
writeln('Хорошо. Вы ввели значение для a: ',a);
writeln('Введите значение стороны b.');
readln(b);
writeln('Хорошо. Вы ввели значение для b: ',b);
writeln('Введите значение стороны c.');
readln(c);
writeln('Хорошо. Вы ввели значение для c: ',c);
if a<0 then
writeln('Данный треугольник не существует')
else
if b<0 then
writeln('Данный треугольник не существует')
else
if c<0 then
writeln('Данный треугольник не существует')
else
if a+b<c then
writeln('Данный треугольник не существует')
else
if a+c<b then
writeln('Данный треугольник не существует')
else
if b+c<a then
writeln('Данный треугольник не существует')
else
writeln('Периметр треугольника: ',a+b+c);
end.