Question

va roog ajutor ce va aparea pe ecran in urma executiei programului p55?
program p 55;
type semnal =(rosu,galben,verde);
var s :semnal;
begin
s:= verde;
s:=pred(s);
case s of
rosu: writeln ('stop');
galben: writeln ('atentie');
verde: writeln('start');
end;
readln;
end.

Answer 1

Sper ca te-am ajutat.