написать программ у, в которой циклически осуществляется ввод целых чисел с клавиатуры, признаком прекращения ввода является число 0.

Question

Феля

27 декабря, 04:13

+5

Ответы (2)

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

Игорка · Answer 1

вот тело программы

var i, a, n:longint

begin

read (n) ;

while a>0 do

write (a) ;

end.

Луканя · Answer 2

var temp:integer;

begin

repeat

readln (temp) ;

until (temp=0)

end.