Контрольная по информатике 10 класс

Question

Информатика: Контрольная по информатике 10 класс​

dasha685331 · Accepted Answer

//прога на Pascal`е
{не работает на PascalABC.Net, т.к. оный использует 2-байтную кодировку Unicode, а не 1-байтную кодировку ASCII, как более ранние версии Pascal`ей}
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do
begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ | Код ASCII');
writeln ('');
for i:=1 to n do writeln (' ', chr(ch[i]), ' | ', ch[i]);end.

{версия для PascalABC.Net}
//прога на Pascal`е
const
n = 32*2;
var
ch: array [1..n] of byte;
i, num: byte;
begin
num:=192;
for i:=1 to n do begin
ch[i]:=num;
inc (num);
end;

writeln ('Символ | Код ASCII');
writeln ('');
for i:=1 to n do writeln (' ', chr(ch[i]+848), ' | ', ch[i]);

end.

Контрольная по информатике 10 класс​

MOGZ ответил