Есть ответ 👍

Вывести на экран символы и их код, согласно таблицы кодировки ASCII, начиная с 33 и заканчивая 100. Результат вывести по 10 записей в строке

248
292
Посмотреть ответы 2

Ответы на вопрос:


Program Praktik9;
Uses crt;
Var i,k:integer;
Begin
  ClrScr;
  k:=0;
  For i:=33 to 100 do
  begin
    Write(Chr(i),'-',i:3,'  ');
    k:=k+1;
    if k=10 then
      begin
        k:=0;
        Writeln
      end
  end;
  Readkey
End.

Компоненты
|технологическая дисциплина
|организация рабочего места
|техника безопасности
|эффективность труда

Популярно: Другие предметы