Найти ошибку в программе: Условие: Даны целые числа N (> 2), A и B.
Сформировать и вывести целочисленный массив размера N,
первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.
Подсказка: d[3] := A + B; d[i]:=d[i-1]*2;
var
d: array[1..100] of real;
i, N,A,B: integer;
begin
read(N,A,B);
d[1]:=A;
d[2]:=B;
for i := 3 to N do
begin
d[i]:=A+B+d[i-1];
write(d[i],' ');
end;
end.
chislo1 = int(input("Введите число а "))
chislo2 = int(input("Введите число b "))
while chislo1 != 0 and chislo2 != 0:
if chislo1 > chislo2:
chislo1 = chislo1 % chislo2
else:
chislo2 = chislo2 % chislo1
print(chislo1 + chislo2)
Объяснение:
НОД числа:
берутся два числа. большее число = остаток от деления большего на меньшее. Затем опять большее число (может быть уже второе) = остаток от деления большего на меньшее, и так до тех пор, пока одно из них не станет равно 0. И выводится большее число. В случае если числа равны друг другу, находится остаток от деления второго числа на первое: 0, и выводится первое число. Т.е всё работает.