б) когда созрела потребность общения между людьми с разных точек планеты и появились технические возможности
Uses crt;
var a,b:integer;
begin
randomize;
a:=random(100);
writeln(a);
repeat
readln(b);
if b=100 then writeln('дополнено');
if b<100 then writeln('прибавь еще');
if b>100 then writeln('убавь-ка');
until b=100;
end.
Скачай в интернете активатор, и он активирует тебе автоматически Windows, там их много поищи по поисковику.
<span>Всего 16 человек. Вероятность вызвать дамку 1:3. Значит, 2 бита (4 возможности - 1 выявлена).</span>
Var x,y:integer;
begin
writeln('x, y:');
readln(x,y);
writeln(x,'^2 = ',x*x);
writeln(y,'^3 = ',y*y*y);
if x*x<y*y*y then writeln(x*x) else writeln(y*y*y);
end.
Пример:
x, y:
7 4
7^2 = 49
4^3 = 64
49