Напишите подробный доклад о антивирусе аваст. Срочно, учитель очень придирчивый...

между соответствующими сосоедними станциями. Опредилите наименьшую стоимость проезда из A и B. Таблица во вложениях.

Начало:
1) ввод а,
2) S:=0
3) S:=s+a mod 10
4) a:=a div 10
5) a=0, если нет, то вернуться к 3 действию если да то вывод S
6) конец

этот алгоритм?».

Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;

Begin

Write('Введите количество элементов: '); ReadLn(N);

For I := 1 To N Do

Begin

Write('Введите A[', I, '] '); Readln(A[I]);

End; WriteLn;

For I := 1 To N - 1 Do

Begin

K := I;

For J := I + 1 To N Do If A[J] <= A[K] Then K := J;

Pr := A[I]; A[I] := A[K]; A[K] := Pr;

End;

For I := 1 To N Do Write(A[I], ' ');

End.

to 9 do

y:=y+x;

writeln(y=,y);

END.

2.var x,y: INTEGER;

BEGIN

y:=0;

for x:=10 downto 5 do

y:=y+1

writeln(y=,y);

END

3. var x,y: INTEGER;

BEGIN

y:=1;

x:=15;

while x>5 do

begin

x:=x-3;

y:=y*x;

end;

writeln(y=,y)

END.

4. var x,y: INTEGER;

begin

y:=1;

x:=10;

repeat

y:=y*x+x;

x:=x-2;

until x<0;

writeln(y=,y);

end.

пожалуйста напишите подробное решение и как получаются ответы

тема у нас Организация ветвлений в Паскале. и так, вопрос:
дано трёхзначное число. если сумма цифр числа кратно 3, тогда перевернуть число, иначе обнулить среднюю цифру
очень срочно, кто может

2 посчитайте информационный объем всего словаря в Байтах

3 посчитайте информ.объем всего словаря в Килобайтах

4 посчитайте информац. объем всего словаря в мегабайтах

Пожалуйста напиши подробнее, что и как умножать. спасибо!