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

n:=1

begin

repeat

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

until n<=10

end;

Question

Владлена

3 февраля, 12:21

+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;