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

Question

Тора

19 октября, 14:12

+4

Ответы (1)

Знаете ответ?

Мариетта · Answer 1

var a:integer;

begin

read (a) ;

while (a>0) do

readln (a) ;

wrileln (a)

end.