Исправьте ошибки во фрагменте программы:

n:=1

begin

repeat

write (' n=', n:5) ;

until n<=10

end;

Question

Донара

8 апреля, 13:00

+1

Ответы (1)

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

Ильинична · Answer 1

Var n:byte;

begin

n:=1;

repeat

writeln ('n=', n:5) ;

n:=n+1;

until n>=10

end.

Исправьте ошибки во фрагменте программы:n:=1beginrepeatwrite (' n=', n:5) ;until n<=10end;