найдите наибольший общий делитель чисел способом перебора делителей 12и32 30и60 - №3492406

найдите наибольший общий делитель чисел способом перебора делителей
12и32 30и60 35и60 36и63 30и45 27и54 42и56 80и 32 39и65
- Предмет:
  Математика
- Автор:
  willis
- 5 лет назад

Ответы 0

Добавить свой ответ

Еще вопросы

найдите произведение элементов одномерного массива из 7 элементов значение которых вводится через клавиатуру и является целым.
Хелп!!!
- Предмет:
  Информатика
- Автор:
  hadassahdavies
- 5 лет назад
- Ответов:
  
  0
- Смотреть
помогите дать описание любой девушки на английском
- Предмет:
  Английский язык
- Автор:
  sheba
- 5 лет назад
- Ответов:
  
  0
- Смотреть
Помогите найти ошибки - Паскаль.
Условие: Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.

Не совсем то выводит
program proizvedenie;
var q,z,w,i,n,i1,i2:integer;
a:array[1..1000] of real;
amin,amax,pr:real;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
amin:=a[1];
for i:=1 to n do
begin
if a[i]<amin then
begin
amin:=a[i];
i1:=i;
end;
end;
amax:=a[1];
for i:=1 to n do
begin
if a[i] > amax then
amax:=a[i];
i2:=i;
end;
if i2>i1 then begin
q:=i1;
w:=i2;
end
else begin
q:=i2;
w:=i1;
end;
if (w-q)>1 then begin
pr:=1;
for z:=q to w do
pr:=pr*a[z];
end
else write (0);
close (input);
close (output);
end.
- Предмет:
  Информатика
- Автор:
  damon98
- 5 лет назад
- Ответов:
  
  0
- Смотреть
Нан туралы ырымдар керек едi
- Предмет:
  Қазақ тiлi
- Автор:
  miss piggy
- 5 лет назад
- Ответов:
  
  0
- Смотреть

How much to ban the user?

1 hour 1 day 100 years