Var
n, k, i: integer;
s: string;
begin
write('Введите число: ');
read(s);
write('Введите исходную систему счисления: ');
read(k);
for i := 1 to length(s) do
n := n * k + ord(s[i]) - 48;
write(s, '(2) = ', n, '(10)');
end.

Пример работы программы:
Введите число: 101000111000111
Введите исходную систему счисления: 2
101000111000111(2) = 20935(10)

0 0

4 года назад

4.Вирус действует следующим образом: после запуска на зараженном компьютере он ждёт 2 часа, после чего каждый час рассылает свои

sms68416254

Всего - 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

0 0

4 года назад