Question

Помогите, пожалуйста, с информатикой

Answer 1

 program showMeCode;

 var symbol: char;

 begin

   while symbol <> ' ' do begin

     readln(symbol);

     writeln(symbol, ': ', Ord(symbol));

   end;

 end.

Программа во вложении.

3b5469856c92cf4f7232c3b940bf55f6.pas