Использовать Робот
алг
нач
нц пока сверху стена
если снизу свободно то закрасить все
вправо
кц
влево
нц пока сверху стена
влево
кц
вправо
<span>кон
использовать Робот
алг
нач
нц пока снизу стена
если сверху свободно то
закрасить
вверх
закрасить
вниз
все
вправо
кц
влево
нц пока снизу стена
влево
кц
вправо
кон<span>
</span></span>
Может быть материнская плата?
Правильные ответы: является съедобность отметь мой ответ как самый лучший.
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a <> b then
if a > b then
b := a
else
a := b
else
begin
a := 0;
b := 0;
end;
writeln('a = ', a);
writeln('b = ', b);
readln;
end.
Program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.