program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.
Ответ дал: Гость
30 * 70 = 2100 символов на 1 странице
5 * 2100 = 10500 символов на 5 страницах
при кодировке ascii - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.
Ответ дал: Гость
нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!
Ответ дал: Гость
и какая вероятность что пользователь не
program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin randomize; writeln("загадайте число"); n : = 0; repeat n : = n+1; i : = random(10); op : = random(4); case op of 1: s : = "прибавте "; 2: s : = "отнимите "; 3: s : = "умножте на "; else s : = "поделите на "; end; writeln(s, i); changes[1,n] : = op; {запоминаем действия} changes[2,n] : = i; until n = 10; writeln("что вышло? "); readln(res); for i : = n downto 1 do { производим обратные действия } begin case changes[1,i] of 1: res : = res - changes[2,i]; 2: res : = res + changes[2,i]; 3: res : = res / changes[2,i]; else res : = res * changes[2,i]; end; end; writeln("вы загодали ",res); end.
Популярные вопросы