Автор - deni5743 7 лет назад

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

Ответ

Автор - thedomidy

program task31138408;
const
N = 15;
var
arr: array[0..N] of real;
isGeomPr: boolean;
i, j: integer;
tmp: real;
begin
for i := 0 to N do
begin
Readln(tmp);
if tmp = 0 then
break
else arr[i] := tmp
end;
for j := 1 to i - 2 do
if (Power(arr[j], 2) = arr[j-1]*arr[j+1]) then
isGeomPr := true
else isGeomPr := false;
if isGeomPr = true then
Writeln('yes')
else Writeln('no');
end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

© 2026 Все права защищены Политика конфиденциальности Контакты