Instrucțiunea CASE
Să se afișeze denumirea unei cifre cuprinse între 1 și 9, introduse la tastatură, în limba română și engleză.
Rog Comunitatea Moderatorilor Informaticieni de Elită să mă AJUTE!
AM ENORM NEVOIE DE AJUTOOR, VĂ ROG! TOATE PREMIILE ASIGURATE COROANA etc.
Răspunsuri la întrebare
var
num: integer;
begin
write('Introduce-ti un numar(1-9):');
read(num);
case num of
1:
begin
write('Unu ');
writeln('Pe engleza o sa fie One');
end;
2:
begin
write('Doi');
writeln('Pe engleza o sa fie Two');
end;
3:
begin
write('Trei');
writeln('Pe engleza o sa fie Three');
end;
4:
begin
write('Patru ');
writeln('Pe engleza o sa fie Four')
end;
5:
begin
write('Cinci ');
writeln('Pe engleza o sa fie Five');
end;
6:
begin
write('Sase ');
writeln('Pe engleza o sa fie Six');
end;
7:
begin
write('Sapte ');
writeln('Pe engleza o sa fie Seven');
end;
8:
begin
write('Opt ');
writeln('Pe engleaza o sa fie Eight');
end;
9:
begin
write('Noua');
writeln('Pe engleza o sa fie Nine');
end;
end;
end.