Регистрация
nikitkaandreev1
16.06.2022 11:49
Информатика
Есть ответ 👍

Совершите алгоритм:
алг
нач
влево
нц пока сверху стена и снизу стена
закрасить; влево
кц
вправо
нц пока клетка закрашена
вправо
кц
вправо
нц пока сверху стена и снизу стена
закрасить; вправо
кц
влево
нц пока клетка закрашена
влево
кц
закрасить
кон

124
359
Посмотреть ответы 1

Ответы на вопрос:

oksana1410
oksana1410
4,5(25 оценок)

                                        PascalABC.NET

begin

 var (a, b, c) := ReadInteger3('a, b, c:');

 if (a in range(0,15)) or (b in range(0,15)) or (c in range(0,15)) then

     print(sqr(a) + sqr(b) + sqr(c))

   else

     print((a + b + c) / 3)

end.

Популярно: Информатика