4 решения. Это легко увидеть по таблице истинности. См. фото.
Var
r,a:real;
begin
readln(a);
a:=a*100;
r:=a/4.45;
writeln(r:0:5);
end.<span>
</span>
Т.к. A>B (A - положительное, B- отритцательное), то условие if A<B не выполняется, значит числа не поменяются. A=0.5 B==1.7
Использовать Робот
алг
нач
нц пока слева свободно
влево
кц
нц пока слева стена
закрасить
вверх
кц
вверх
нц пока слева стена
закрасить
вверх
кц
вверх
влево
влево
вниз
нц пока справа стена
закрасить
вниз
кц
вниз
нц пока справа стена
закрасить
вниз
кц
<span>кон</span>
Random(10)+1;
random(11)-5;
random(11)+10;
random(101)-35;