Question

Написать программу с постусловием, которая будет выводить на экран символ * (х:=*, х:char) до тех пор, пока с клавиатуры не будет введен 0.

Answer 1

Var x:char;
begin
read(x);
while x<>0 do
begin
write(x);
read(x);
end;
end.