С клавиатуры вводятся положительные числа до тех пор пока не будет введено отрицательное число. Составить программу, выводящую это число на экран.
Ответы
Ответ дал:
0
var a:integer;
begin
read(a);
while(a>0) do
readln(a);
wrileln(a)
end.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад