** паскале, желательно с объяснением

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

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


image

Информатика (12 баллов) | 33 просмотров
Дан 1 ответ
0 голосов
  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.
(542 баллов)