Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Эти числа были написаны в троичной системе счисления.
Номер квартиры 572.
1дом Николай егерь
2 дом Роман врач
3 дом Семен тренер
4 дом Артур художник