Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
Программа с while
program raf105;
var a:integer;
begin
while a<>15 do
begin
a:=a+1;
writeln(a);
end
end.
Программа с repeat
program raf105;
var a:integer;
begin
repeat
a:=a+1;
writeln(a);
until a=15;
end.
<em>Написано на языке PascalABC.NET</em>
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, эти строки будут одного цвета.
300 грамм -- 100%
х грамм -- 3%
x=9 грамм - 1 гном
50%(половина) = 150 грамм
150/9=16,7≈17 человек сьедает половину яблока
300-(17*9)=147 грамм вес оставшегося яблока