Найти сумму введенных чисел - Pascal ABC
Формулировка задачи:
Последовательно вводятся числа, найдите их сумму. Ввод остановить после ввода второго нуля.
Решение задачи: «Найти сумму введенных чисел»
textual
Листинг программы
var a, s, k : integer; begin k := 0; s := 0; repeat write('введи число: '); readln(a); s := s + a; if a = 0 then inc(k) until k = 2; writeln('сумма равна: ', s) end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д