использовать Робот
алг
нач
нц пока сверху свободно; вверх кц
нц пока сверху стена; влево кц
вправо
нц пока сверху стена
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока сверху свободно
вверх
кц
вправо
кц
кон
Примеры:
1.
if (ivanov=0) or (petrov=1) then
begin
sidorov:=1;
end;
2.
if ivanov=0 then
begin
sidorov:=0;
end;
Мраморная скульптура является носителем информации
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var s:=0;
if a.IsOdd then s+=a;
if b.IsOdd then s+=b;
if c.IsOdd then s+=c;
Writeln('сумма нечетных равна ',s)
end.
<u>Пример</u>
Введите три целых числа: 345423 -324342 1231
сумма нечетных равна 346654