Есть способ поизящнее, но можно и так:
program test;
uses crt;
var
arr:array[1..100] of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
arr[i]:=random(100);
write(i,': ');
writeln(arr[i]);
end;
writeln;
i:=2;
while(i<100)do
begin
write(i,': ');
writeln(arr[i],' ');
i:=i*2;
end;
readln;
end
3 Мб-25165824 Бит
2048 Гб-2097152 Мб
8192 Кб-8 Мб
<span>8192 Бит-1 Кб</span>
Program prog;
uses crt;
var
a,b,c,s:real;
begin
write('катет a = ');
readln(a);
write('катет b = ');
readln(b);
writeln;
c:=sqrt(sqr(a)+sqr(b));
s:= (a*b)/2;
writeln('Гипотенуза с = ', c:0:3);
writeln('S = ', s:0:3);
end.
Андрей Правдивый
Руслан Хитрец
Леша Шутник
Составил Леша
Всего - 6,5 часов
Ожидание 2 часа, осталось 4,5 часов
Активен 1 заражённый
1 шаг:
Послано на 15, заражено 15*0.2+1=4(3 в ожидании на 2 часа), осталось 3,5 часов
2 шаг
Послано на 15, заражено 15*0.2+4=7(3 в ожидании на 1 час, 3 в ожидании на 2 часа), осталось 2,5 часов
Активны 4 заражённых
3 шаг
Послано на 15*4=60, заражено 60*0.2+7=19(12 в ожидании на 2 часа, 3 в ожидании на 1 час), осталось 1,5 часов
Активны 7 заражённых
4 шаг
Послано на 15*7=105, заражено 105*0.2+19=40, осталось 0.5 часов
За пол часа рассылок не произойдёт.
Ответ: 40