Перекодируйте программу с For на Repeatvar x,y,R1, R2: integer; koltoch:

Перекодируйте программку с For на Repeat
var
x,y,R1, R2: integer;
koltoch: byte;

begin
writeln('Введите внутренний радиус R1');
readln(R1);
writeln('Введите наружный радиус R2');
readln(R2);
koltoch:= 0;
for x:= -R2 to R2 do
for y:= -R2 to R2 do
if (sqrt(sqr(x) + sqr(y)) gt; R1)
and (sqrt(sqr(x) + sqr(y)) lt; R2) then
begin
koltoch:= koltoch + 1;
writeln (x,' ',y);
end;
writeln(koltoch);
readln
end

Задать свой вопрос
1 ответ
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)) gt; R1)
      and (sqrt(sqr(x) + sqr(y)) lt; 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
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт