Выведите на экран коды русских символов от «а» до «я»

@Jujutopl · Регистрация: 21.11.2019

Author24 — интернет-сервис помощи студентам

Выведите на экран коды русских символов от «а» до «я». (коды только с пояснениями если можно "комментариями")

@ValentinNemo · 22.11.2019, 02:06

Попробуйте такой код. Но у меня кракозябры выдает.

Pascal

program Project1;
uses
  crt;
var
  i,k,j: integer;
begin
  k:= 128;
  for i:= 0 to 4 do
    for j:= 1 to 15 do
    begin
      if k = 176 then
        k:= 224;
      gotoxy(i*15+1,j);
      writeln(chr(k):3, ' = ',k);
      inc(k);
      if k = 240 then
        break;
    end;
  readln;
end.

@Jujutopl · 22.11.2019, 11:54 **[ТС]**

Тоже самое выводит, не верно

Добавлено через 9 минут
Кракозября выдает...

@ZX Spectrum-128 · 22.11.2019, 11:56

Pascal

var
  c: char;
 
begin
  for c := 'а' to 'я' do
    writeln(c, ' ', ord(c));
end.

@Jujutopl · 22.11.2019, 14:20 **[ТС]**

ZX Spectrum-128, спасибо огромное!

@Jujutopl 0 / 0 / 0 Регистрация: 21.11.2019 Сообщений: 31
		1
	Выведите на экран коды русских символов от «а» до «я» 21.11.2019, 23:34. Показов 4596. Ответов 4 Метки нет (Все метки) Выведите на экран коды русских символов от «а» до «я». (коды только с пояснениями если можно "комментариями") 0

@Jujutopl 0 / 0 / 0 Регистрация: 21.11.2019 Сообщений: 31
	22.11.2019, 11:54 [ТС]	3
	Тоже самое выводит, не верно Добавлено через 9 минут Кракозября выдает... 0

@Jujutopl 0 / 0 / 0 Регистрация: 21.11.2019 Сообщений: 31
	22.11.2019, 14:20 [ТС]	5
	ZX Spectrum-128, спасибо огромное! 0

Выведите на экран коды русских символов от «а» до «я»

Решение