//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.
11110101 1+4+16+32+64+128=245
Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.
8 бит = 9,54×(10 в -7 степени) МБ
8 бит = 9,31×(10 в -10 степени) ГБ
8 бит = 9,09×(10 в -13 степени) ТБ
Хахахахахахаах
зебра тоесть: пешеходный переход или места где люди могуд проходить безопасна дорогу.