Question

СРОЧНО ДАМ МНОГО БАЛЛОВ Какое число нужно записать вместо многоточия, чтобы в результате работы фрагмента программы были напечатаны ровно три звездочки? x:=...; while x <= 9 do begin writeln('*'); x := x + 1; end;

Answer 1

Ответ:

var x:integer;

begin

x:=7;

while x <= 9 do begin

writeln('*');

x := x + 1;

end;

end.

Answer 2

Чтобы в результате работы фрагмента программы были напечатаны ровно три звездочки, нужно присвоить переменной x значение 3. Вот как будет выглядеть исправленный фрагмент кода:

pascalCopy code
x := 3;
while x <= 9 do
begin
  writeln('*');
  x := x + 1;
end;

Этот код начинает с x равным 3 и затем печатает звездочку в цикле, пока x меньше или равно 9. Таким образом, в результате выполнения этого кода будет напечатано ровно три звездочки.