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

n:=1

begin

repeat

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

until n<=10

end;

Question

Созонт

26 июля, 04:37

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