Линейный Циклический Разветвляющий
<em>var a, b, c :integer;</em>
<em>begin</em>
<em> read (a, b);</em>
<em> c:=a;</em>
<em> a:=b;</em>
<em> b:=c;</em>
<em> write (a, b);</em>
<em>end.</em>
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
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, эти строки будут одного цвета.