Решите пожалуйста.Сделаю лучшим ответом))Дана последовательность целых...

Question

Решите пожалуйста.Сделаю лучшим ответом))
Дана последовательность целых чисел,заканчивающаяся нулем.Написать программу,которая выводит последнее ненулевое число последовательности.

Comments

Что-то задание какое-то невнятное. Например, такая последовательность вводится: 0 2 -5 0 0 6 -1 0. Программа должна выдать в ответ число -1. Так?

---

вводится строкой или каждое по отдельности?

---

по отдельности

Answer 1

Пишу на QBasic
CLS
DO
INRUT A
IF A<> 0 THEN
 M=A
END IF
LOOP UNTIL A=0
PRINT M

Comments

а на Паскале не можете?

---

Перевод на Паскаль: var a,m:integer;
begin
repeat
readln(a);
if a<>0 then m:=a
until a=0;
writeln(m)
end.