Решите уравнение в PascalABC.net Task(‘cif18’)

0 голосов
47 просмотров

Решите уравнение в PascalABC.net Task(‘cif18’)


Информатика (14 баллов) | 47 просмотров
Дан 1 ответ
0 голосов

тебе точно уравнение нужно решить, а не программку для "робота"?

uses robot;

begin

   task('cif18');

   Right;

   while CellIsPainted do Right;

   Down;

   if CellIsPainted then Up else Left;

end.

(1.2k баллов)