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

Question

Лия

22 июня, 06:07

+3

Ответы (2)

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

Марийка · Answer 1

var temp:integer;

begin

repeat

readln (temp) ;

until (temp=0)

end.

Любомила · Answer 2

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

var i, a, n:longint

begin

read (n) ;

while a>0 do

write (a) ;

end.