Nainanal
5 год назад
Исправьте ошибки во фрагменте программы: n:=1beginrepeat write ( ' n=',n:5 ) ;untiln<=10end;
ОТВЕТЫ
Емилия
Oct 24, 2020
var n:byte;
begin
n:=1;
repeat
writeln('n=', n:5);
n:=n+1;
until n>=10
end.
begin
n:=1;
repeat
writeln('n=', n:5);
n:=n+1;
until n>=10
end.
593
Смежные вопросы:
