//PascalABC.Net 3.1.0.1200
var
c: char;
begin
readln(c);
if c in ['0'..'9'] then
writeln(ord(c))
else
writeln(chr(ord(c) + 1), chr(ord(c) + 2));
if c in ['A'..'Z'] then
writeln(LowCase(c));
end.
Различают следующие типы меню:
по исполнению: текстовое графическое;
по функциям: главное меню приложения; всплывающее меню; контекстное меню; <span>системное меню.
Компьютерное меню - это меню через которое мы можем делать разные действия.</span>
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>
Отметил цветными ячейками задания, внизу таблицы обозначения сделал :)