ΠΠ°ΠΊ Π²ΡΠ²Π΅ΡΡΠΈ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΠΠ°ΡΠΊΠ°Π»Π΅?
ΠΠ°ΠΊ Π²ΡΠ²Π΅ΡΡΠΈ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΠΠ°ΡΠΊΠ°Π»Π΅?
program AllSim;
//ΠΠ°ΠΊ Π²ΡΠ²Π΅ΡΡΠΈ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΠΠ°ΡΠΊΠ°Π»Π΅
var
s_Chr: char;
i: byte;
begin
for i := 32 to 126 do
begin
s_Chr := Chr(i);
WriteLn('Chr(', i, ') ', s_Chr);
end;
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠ°ΠΊ Π²ΡΠ²Π΅ΡΡΠΈ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΠΠ°ΡΠΊΠ°Π»Π΅.