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

Ответ:

Вы забыли обернуть код внутри else в begin..end, таким образом, команда "z:=0" выполнялась всегда вне зависимости от работы if.

Исправленный код дан во вложении.