1.
program ll1;
var i, a: integer;
begin
i:=2;
a:=2;
writeln(a);
while i<=10 do
begin
a:=a*a;
i:=i+1;
writeln(a);
end;
end.
2.
program ll1;
var a, i, sum: integer;
ssum: real;
begin
i:=1;
sum:=0;
while i<=10 do
begin
i:=i+1;
readln(a);
sum:=sum+a;
end;
ssum:=sum/i;
if ssum<1000 then
writeln('Низкая цена');
end.
3.
program ll1;
var A: array[1..7] of integer;
i, pr: integer;
begin
Randomize;
for i:=1 to 7 do
begin
A[i]:=random(10)-5;
write(A[i], ' ');
if A[i] = 0 then A[i]:=1;
pr:=pr * A[i];
end;
writeln(pr);
end.
4.
program ll1;
begin
writeln(1*2*3*4*5*6 + 3*3*3*3*3*3);
end.
Відповідь:
Вирус является программой, поэтому объекты, не содержащие программ и не подлежащие преобразованию в программы, заражены вирусом быть не могут. Например, графические файлы форматов . BMP, . PCX, . GIF, . WMF и др. содержат только описание рисунков, поэтому как бы их вирус не изменял, при просмотре или ином использовании графического файла можно получить искаженный рисунок или сообщение о неправильном формате файла, но вирус при этом запущен быть не может. Иными словами, не содержащие программ объекты вирус может только испортить, но не заразить. К числу таких объектов относятся текстовые файлы(кроме командных файлов и текстов программ), документы простых редакторов документов типа Лексикона или Multi- Edit, информационные файлы без данных и т.д.
Пояснення: