Question

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

Answer 1

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

Answer 2

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