Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800
Сзади нужно поднести большой магнит или приклеять
a) Лаборатория Касперского.
b) Файл, заражённый вирусом, останется на компьютере в том случае, если не проверять компьютер на наличие вирусов.
c) Антивирусные программы могут сканировать все файлы которые имеются на компьютере на наличие вредоностных программ или непонятных файлов, а также изменять или удалять содержимое компьютера (в смысле после нахождения вируса, антивирус может поместить его в карантин или вовсе удалить).