Var
p, r: real;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
read(f, p);
Close(f);
r := p - 0.1 * p;
r := r + 0.1 * r;
writeln(r:0:2)
end.
Тестовое решение:
9.90
У меня получилось 8 команд:
1) повернись вправо на 90 градусов;
2) пройди вперед на 2 клетки;
3) повернись влево на 90 градусов;
4) пройди вперед на 3 клетки;
5) повернись влево на 90 градусов;
6) пройди вперед на 2 клетки;
7) повернись влево (вправо) на 180 градусов;
8) пройди вперед на 5 клеток.
Если Ентик может двигаться назад, то команды под номером 7 и 8 можно заменить на "7) пройди назад на 5 клеток", тогда будет 7 команд.
Удачи…
Таблица истинности:
A | B | A*B | ~(A*B) | ~(A*B) + A*B
0 | 0 | _ 0 _| _ 1 __ | _ 1
0 | 1 | _ 0 _| _ 1 __ | _ 1
1 | 0 | _ 0 _| _ 1 __ | _ 1
1 | 1_ | _ 1 _| _ 0 __ | _ 1
Не обращайте внимания на подчеркивания, это для выравнивания таблицы.
Чего и следовало ожидать - логическое ИЛИ любого выражения и его же отрицания тождественно равно логической 1, то есть ИСТИННО всегда.
Дерево показано на рисунке.
Program vika;
var x, y : integer;
begin
writeln ('Ведите x');
readln (X);
writeln ('Ведите y');
readln (y);
if
(x>0) and (y>0) then writeln (' В 1');
else
if (x>0) and (y<0) then writeln ('В 4');
if
(x<0) and (y>0) then writeln ('Во 2');
else
if (x<0) and (y<0) then writeln ('В 3');
end.
немного исправил.