Question

Va rog ajutati-ma la executarea acestor programe

Answer 1

in pascal afiseaza codul din tabelul ASCII a caracterului introdus de la tastatura cu ajutorul functiei ORD



program xxx;
var a:char;

procedure dothis();
begin
write('introduceti de la tastatura ');
readln(a);

writeln(ord(a));
end;
begin
writeln('introduceti litera x pentru a iesi din program');
while (a <>'x')
do dothis();
writeln('gata out');
end.

rezultat afisat:

introduceti litera x pentru a iesi din program introduceti de la tastatura a
97
introduceti de la tastatura b
98
introduceti de la tastatura 1
49
introduceti de la tastatura 9
57
introduceti de la tastatura ;
59
introduceti de la tastatura x
120
gata out