Question

Помогите пожалуйста,1. Дан символ. Написать программу, выводящую его код.
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.

Answer 1

2)
var

b:integer;
begin
writeln('vvedite kod simvola');
readln(b);
writeln('Simvol: ',chr(b));
 readln;
end.
1)var
a:char;
begin
writeln('vvedite simvol');
readln(a);
writeln('kod simvola: ',ord(a)); 
readln;
end.

3)
var
 ch: char;
begin
for ch := 'a' to 'z' do
  write (ch,' ');  
 readln; 
end.