на паскале, желанно с изъяснением

На паскале, желанно с объяснением

Задать свой вопрос
1 ответ
  1. program task31138408;
  2. const
  3.  N = 15;
  4. var
  5.  arr: array[0..N] of real;
  6.  isGeomPr: boolean;
  7.  i, j: integer;
  8.  tmp: real;
  9. begin
  10.  for i := 0 to N do
  11.    begin
  12.      Readln(tmp);
  13.      if tmp = 0 then
  14.        break
  15.      else arr[i] := tmp
  16.    end;
  17.  for j := 1 to i - 2 do
  18.    if (Power(arr[j], 2) = arr[j-1]*arr[j+1]) then
  19.        isGeomPr := true
  20.    else isGeomPr := false;
  21.  if isGeomPr = true then
  22.    Writeln('yes')
  23.  else Writeln('no');  
  24. end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт