program massiv4; uses crt; var a, b, c:integer; begin clrscr; randomize; a:=random(3)+2; b:=random(35)+10; c:=a*b*100; writeln(c); readln; end.
вариант 2: показывает более плавную кривую распределения символов A по странице, поскольку генерирует случайное значение встречаемости символа в каждой новой строке:
program massiv4; uses crt; var i, a, b, c:integer; begin for i := 0 to 99 do begin randomize; b:=random(35)+10; for i := 1 to b do begin randomize; a:=random(3)+2; for i := 1 to a do begin c:=c+a*b; end; end; end; writeln(c); readln; end.
Для начала, переведем код в десятичную систему счисления.
110100102 = 21010
110011002 = 20410
110011112 = 20710
110100112 = 21110
Получаем: 210 204 207 211
Зная, что буква «А» кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы. Определим код остальных букв и расшифруем наше слово.
uses crt;
var a, b, c:integer;
begin
clrscr;
randomize;
a:=random(3)+2;
b:=random(35)+10;
c:=a*b*100;
writeln(c);
readln;
end.
вариант 2: показывает более плавную кривую распределения символов A по странице, поскольку генерирует случайное значение встречаемости символа в каждой новой строке:
program massiv4;
uses crt;
var i, a, b, c:integer;
begin
for i := 0 to 99 do
begin
randomize;
b:=random(35)+10;
for i := 1 to b do
begin
randomize;
a:=random(3)+2;
for i := 1 to a do
begin
c:=c+a*b;
end;
end;
end;
writeln(c);
readln;
end.
Для начала, переведем код в десятичную систему счисления.
110100102 = 21010
110011002 = 20410
110011112 = 20710
110100112 = 21110
Получаем: 210 204 207 211
Зная, что буква «А» кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы. Определим код остальных букв и расшифруем наше слово.
А-192
Б-193
В-194
Г-195
Д-196
Е-197
Ё-198
Ж-199
З-200
И-201
Й-202
К-203
Л-204
М-205
Н-206
О-207
П-208
Р-209
С-210
Т-211
У-212
Ф-213
Х-214
Ц-215
Ч-216
Ш-217
Щ-218
Ъ-219
Ы-220
Ь-221
Э-222
Ю-223
Я-224
СЛОТ