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

1

Ответы и объяснения

  • nelle987
  • Ведущий Модератор
2013-03-19T11:14:25+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:integer;

begin

   read(a);

   while(a>0) do

      readln(a);

   wrileln(a)

end.