Прямоугольна система состоит из 3 осей(x,y,z).
1. ышмь
2. лакитаврау
3. онимрот
4. икоонкл
5. нитрепр
Var x,y,R1, R2: integer;
koltoch: byte;
begin
writeln('Введите внутренний радиус R1');
readln(R1);
writeln('Введите внешний радиус R2');
readln(R2);
koltoch:= 0;
x := -R2;
repeat
y := -R2;
repeat
if (sqrt(sqr(x) + sqr(y)) > R1)
and (sqrt(sqr(x) + sqr(y)) < R2) then
begin
koltoch:= koltoch + 1;
writeln (x,' ',y);
end;
y := y + 1;
until y = R2;
x := x + 1;
until x = R2;
writeln(koltoch);
readln
<span>end.</span>
Если нужна другая реализация - обращайтесь, но уже в другом вопросе и баллов побольше понадобиться.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln('Max=',ArrRandom(15,1,50).Println.Max)
end.
<u><em>Тестовое решение:</em></u>
45 28 10 26 15 5 49 39 40 50 19 12 37 35 40
Max=50