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

Question

Арсеньич

29 ноября, 14:23

+4

Ответы (1)

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

Матвеич · Answer 1

var a:integer;

begin

read (a) ;

while (a>0) do

readln (a) ;

wrileln (a)

end.