Вирус можно подхватить на незащещенных сайтах. Его тяжело убрать,в начале его даже не заметно,но потом уже компьютер начинает плохо работать. И тогда можно понять,что это вирус. Лучше сразу скачать антивирусник и быть внимательнее на какие сайты заходить.
Var i,k: integer;
a: array[1..16] of integer;
priz: boolean;
st: string;
begin
k:=0; priz:=false;
st:='';
randomize;
writeln('исходный массив из 16 элементов');
for i:=1 to 16 do
begin
a[i]:=random(50)-30;
write(a[i],' ');
if a[i]<0 then k:=k+1;
if (a[i] mod 3) = 0 then
begin
priz:=true;
if i>9 then
st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','
else st:=st+chr(ord(i+48))+',';
end;
end;
writeln;
delete(st,length(st),1);
if k>0 then
writeln('кол-во отрицат. элементов = ',k);
if priz then
writeln('индексы элементов, кратных трем: ',st)
else writeln('нет элементов, кратных 3');
readln;
<span>end.
</span>
Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
Ответ:
Что то типа того, попробовал проверять, вроде работает
Объяснение:
program example;
var
d,c,a,h:real;
b : real;
function Calculate(d,c,a,h: real): real;
var
Notation: real;
begin
Notation := c + abs(cos(a*h*h)-sin(a*h));
Calculate := d - sqrt(c/Notation);
end;
begin
readln(d,c,a,h);
b := Calculate(d,c,a,h);
write(b);
end.