Помогите, срочно!! 1. Написать программу суммирующую числа до тех пор пока не будет...

Question

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

Comments

На языке Pascal

---

Буду очень благодарен!!

---

Спасёте от 2 в четверти

---

хотя бы первую решите, пожалуйста

---

Не совсем понятно, это только 4 числа вводится, или бесконечность?

---

4 числа

---

Тогда код ниже

---

Ошибка компиляции

---

Попробуй ещё раз

---

Всё, спасибо!!

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.

Comments

Ошибка компиляции(

---

Попробуй ещё раз

---

Пасиба!