С клавиатуры вводятся положительные числа до тех пор пока не будет введено отрицательное число. Составить программу, выводящую это число на экран.

Question

Арсеньич

16 января, 17:50

+5

Ответы (1)

Знаете ответ на вопрос?

Матвеич · Answer 1

var a:integer;

begin

read (a) ;

while (a>0) do

readln (a) ;

wrileln (a)

end.