Вывести на экран символы и их код, согласно таблицы кодировки ASCII, начиная с 33 и заканчивая 100. Результат вывести по 10 записей в строке
248
292
Ответы на вопрос:
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.
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.
Компоненты
|технологическая дисциплина
|организация рабочего места
|техника безопасности
|эффективность труда
|технологическая дисциплина
|организация рабочего места
|техника безопасности
|эффективность труда
Популярно: Другие предметы
-
clashof7a30.06.2022 21:52
-
лиана25010.08.2021 07:14
-
uztstdgiDima29.10.2022 17:16
-
alinakiseleva1205.09.2022 03:18
-
Kiber04ек11.09.2020 13:22
-
Некий200613.03.2023 05:51
-
Георгий1171229.10.2020 16:01
-
умница63308.12.2020 08:12
-
belat113.03.2021 00:51
-
вадим123450987626.12.2021 09:05