N - любое число
Движение:
1. Идти n шагов
2. Повернуться на n градусов вправо
3. Повернуться на n градусов влево
4. Повернуть в направление n
5. Повернуться к <какому-либо объекту>
6. Изменить х на n
7. Изменить y на n
8. Установить x на n
9. Установить y на n
10. Идти в x: n y: n
11. Плыть n секунд в точку x: n y: n
12. Идти в <какой-либо объект>
13. Если край, оттолкнуться
Внешность:
14. Сказать "<что-либо>"
15. Думать "<что-либо>"
16. Говорить "<что-либо>" в течение n секунд
17. Думать "<что-либо>" в течение n секунд
18. Показаться
19. Спрятаться
Перо:
20. Опустить перо
21. Поднять перо
22. Установить цвет пера
p.s. выбрал только некоторые, самые подходящие
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('S=',pi*sqr(ReadReal('r=')):0:5)
end.
<u><em>Тестовое решение:</em></u>r= 12.7
S=506.70748
<em>/ PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Поквартирная численность жильцов');
var a:=ArrRandom(36,1,10); a.Println;
var mx:=a.Max;
Write('Квартиры с максимальным количеством жильцов: ');
a.Select((x,i)->(x,i)).Where(x->x[0]=mx).Select(x->x[1]+1).Println
end.
<u>Пример</u>
Поквартирная численность жильцов
7 9 6 7 8 9 1 4 7 8 8 8 1 7 7 8 3 10 7 7 2 9 7 3 2 8 2 2 10 4 4 5 2 1 7 1
Квартиры с максимальным количеством жильцов: 18 29
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.