Вопрос 1 точно знаю: <span>загрузочные вирусы.
</span>
1) Ответ 6 (путь а-б-д-е)
2)Ответ 8 (путь а-ц-д-е)
3)вторая таблица (а-б-д)
1) 1 Килобайт = 1024 Байтов
1 Мегабайт = 1024 Килобайтов (1024 Б * 1024 Б)
=> 1572864 : 1024 = 1536 КБ (Килобайт)
(1536 ←(1572864 Б) : 1024 = 1,5 МБ ⇔ Окончательный ответ)
2) 1 Байт = 8 Битов
=> 20480 : 8 = 2560
20480 Бит = 2560 Байт
(2560 ←(20480 Бит): 1024 = 2,5 КБ ⇔ Окончательный ответ )
3) 4194304 Байт = 4096 Кб
(4096 Кб = 4 Мб ⇔ Окончательный ответ)
4)40960 Бит = 5120 Байт
(5120 Байт = 5 Кб ⇔ Окончательный ответ)
5) 3145728 Байт = 3072 Кб
(3072 Кб = 3 Мб ⇔ Окончательный ответ)
6) 155648 Бит = 19456 Байт
(19456 Байт = 19 Кб ⇔ Окончательный ответ)
Открываете раздел помощи по языку набираете ключевое слово: string. Смотрите все процедуры и функции, для работы с переменными типа string
Находите описание функции Pos
<span>function Pos(subs,s: string): integer;
</span>
Возвращает позицию подстроки subs в строке s. Если не
найдена, возвращает 0
Если строка subs входит в строку s, то функция возвращает значение, большее нуля, номер первого символа в сроке s, начиная с которого, строка subs входит в строку s.
Например, subs:='123'; s:='785123456'; k: integer;
k:=Pos(subs,s); значение переменной k = 4;
Второй пример: subs:='123; s:=623145;
k:=Pos(subs,s); k =0; строка subs не входит в строку s
program zadacha2_12;
var k,s,z,x : integer;
begin
if x = 4 then
writeln('Нет решения')
else
begin
s := 0;
for k := 4 to 12 do
s := s * sqr(x)*(k+1)*(x-4)
end;
z := 31 * sqr(x) + 5 * s;
writeln('Сумма z =', z);
end.