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

Question

Гость

Ответ(ы) на вопрос:

Гость

вот тело программы var i,a,n:longint begin read(n); while a>0 do write(a); end.

Accepted Answer

var temp:integer; begin repeat readln(temp); until (temp=0) end.