Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,k,x,y:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
k:=-1;
for j:=1 to m do
y:=1;
x:=j;
while(x>0) and(y<=n) do
k:=k+1;
a[y,x]:=k;
x:=x-1;
y:=y+1;
end;
for j:=2 to n do
y:=j;
x:=m;
while(x>0)and(y<=n) do
y:=y+1
for i:=1 to n do
write(a[i,j]:4);
writeln
readln
end.
Переведите на Питон, в Паскале давно не работал
в одном байте восемь бит. следовательно 100/8=12.5
ответ 12.5
если выполнить для стандартного алфавита с ё, й итд
получится
а-1 б-2 в-3 г-4 д-5 е-6 ё-7 ж-8 з-9 и-10 й-11 к-12 л-13 м-14 н-15 о-16 п-17
р-18 с-19 т-20 у-21 ф-22 х-23 ц-24 ч-25 ш-26 щ-27 ъ-28 ы-29 ь-30 э-31 ю-32 я-33
слово компьютер
к=12 -8=4 (д)
о=16-5=11(й)
м=14+1=15(н)
п=17+8=25(ч)
ь=30-23=7(ё)
ю=32-13=19(с)
тер (не меняем)
дйнчёстер
но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"
Популярные вопросы