Задание 6:
1. B
2. D
3. A
4. C
Задание 7:
program vibory;
var a:integer;
begin
readln(a);
if a>=18 then writeln('Вы имеете право голосовать')
else writeln('Вы не имеете право голосовать');
end.
Из А в Б ведет 2 пути
из Б в В ведет 2+2=4 пути
из А в В ведет 2 пути
4+2=6
Ответ:6 путей
Странный алгоритм :)
Надпись слева я не разобрал, оставил со знаком вопроса, подправите потом этот текст. И, если в сообщениях x1 и x2 нужно было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').
Сама программа:
var
x1, x2, y: real;
begin
Println('Введите значения x1, x2, y через пробел и нажмите Enter');
Readln(x1, x2, y);
x1 := y - x1;
x2 := y - x2;
if x2 < 0 then
x2 := -x2;
if x1 < 0 then
x1 := -x1;
if x1 = x2 then
Println('В улетит?')
else if x1 > x2 then
Println('x2 съест')
else Println('x1 съест');
end.