Предмет: Информатика,
автор: deni5743
на паскале, желательно с объяснением
Приложения:
Ответы
Автор ответа:
0
- 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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: sarsengaliasylzhan2
Предмет: Математика,
автор: vovayugai68
Предмет: Физика,
автор: racabovatatis
Предмет: Математика,
автор: alina4512