Dasturlash tillari haqida Tabiiy


Download 1.62 Mb.
bet11/11
Sana15.12.2020
Hajmi1.62 Mb.
#167379
1   2   3   4   5   6   7   8   9   10   11
Bog'liq
Dasturlash tillari haqida

uses crt;

var

belgi:char; {belgi}

code: integer; {belgi kodi}

begin

clrscr;

writeln ('Belgini kiriting ni bosing.');

writeln ('Dastur ishini tugatish uchun nuqtani kiriting!');

repeat

write (' ');

readln (belgi);

code:= Ord (belgi);

writeln ('belgi',belgi,' kod: ',code);

until belgi= '.';

readln;

end.


Download 1.62 Mb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6   7   8   9   10   11




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling