Дан массив целых чисел размера N.Проверить,образуют ли его эелменты,перечисленые в том же порядке,геометрическую прогрессию.Если образуют то вывести знаменатель прогрессии,если нет то вывести 0.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=4;
Var
ar:array[1..n] of integer;
i,j:integer;
k:real;
begin
writeln(Array:);
for i:=1 to n do
readln(ar[i]);
k:=ar[1]/ar[2];
for i:=1 to n-1 do
if ar[i]/ar[i+1]<>k then
begin
writeln(No);
exit;
end;
writeln(Yup);
end.
Пример ввода:
1
2
4
8
Пример вывода:
Yup
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
