для кодирования 757770 символов потребуется 757770 байтов
757770байт < 1,44 мбайт
да, книга поместиться на дискетку
Ответ дал: Гость
крестьянин должен переправить волка и капусту с собой.а козу надо кинуть
на другой берег.
Ответ дал: Гость
var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.
Ответ дал: Гость
var a: array[1..100] of integer;
begin
randomize; {чтоб рандом был разный для каждого запуска програмы}
for i: = 1 to 100 do
if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}
Популярные вопросы