Question

Работает криво 10 правильно 5 нет в чём причина? //изменения величин переменны y,x program xyz; var x,y,z:byte; begin writeln('Введите значение переменной x'); readln(x); if x=5 then begin y:=8; z:=3; end else y:=0; z:=0; writeln(y); writeln(z); end.

Answer 1

Ответ:

Изминение величин

Объяснение:

Answer 2

Ответ:

насколько я знаю там по-другому вводится

Объяснение:

если неправильно сорри

Answer 3

Проблема в вашем коде связана с тем, что вы присваиваете значение переменной z вне зависимости от условия ветвления. В результате переменная z будет равна 0 в любом случае. Давайте разберем ваш код подробнее:

pascalCopy code
program xyz;
var
  x, y, z: byte;
begin
  writeln('Введите значение переменной x');
  readln(x);
  if x = 5 then
  begin
    y := 8;
    z := 3;
  end
  else
    y := 0;
  
  z := 0; // Эта строка должна находиться внутри ветвления "else"

  writeln(y);
  writeln(z);
end.

Чтобы исправить это, переместите строку z := 0; внутрь ветвления "else", чтобы она выполнялась только в случае, если x не равно 5:

pascalCopy code
program xyz;
var
  x, y, z: byte;
begin
  writeln('Введите значение переменной x');
  readln(x);
  if x = 5 then
  begin
    y := 8;
    z := 3;
  end
  else
  begin
    y := 0;
    z := 0; // Переместили эту строку сюда
  end;

  writeln(y);
  writeln(z);
end.

Теперь переменная z будет принимать значение 3 только в случае, если x равно 5, и будет принимать значение 0 в остальных случаях.