Question

Помогите, срочно!! 1. Написать программу суммирующую числа до тех пор пока не будет введён "0". Входные данные: 1 2 3 0 Выходные данные: 6 2. Написать программу поиска НОД (Наибольший Общий Делитель) двух чисел. Входные данные: 170 42 Выходные данные: 2

Answer 1

1)

program g;

var

a, b, c, d:integer;

begin

Readln(a, b, c, d) ;

begin

if a = 0 then

Writeln('0') end ;

begin

if b = 0 then

Writeln(a) end ;

begin

if c = 0 then

Writeln(a + b) end ;

begin

if d = 0 then

Writeln(a + b + c) end ;

end.

Answer 2

Конечно, я помогу вам написать программы. Вот решения для каждой из задач:

1. Программа для суммирования чисел до ввода "0":

pythonCopy code
total_sum = 0

while True:
    num = int(input("Введите число: "))
    if num == 0:
        break
    total_sum += num

print("Сумма введенных чисел:", total_sum)

2. Программа для нахождения НОД (Наибольший Общий Делитель) двух чисел:

pythonCopy code
def gcd(a, b):
    while b:
        a, b = b, a % b
    return a

num1 = int(input("Введите первое число: "))
num2 = int(input("Введите второе число: "))

result = gcd(num1, num2)
print("Наибольший Общий Делитель:", result)

Скопируйте соответствующий код для каждой задачи в свою среду программирования и запустите его. Программы позволят вам решить данные задачи.