var
a,b,s,c:real;
begin
write('a b:');readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
S:=a*b/2;
writeln('c:',c,', S:',S);
end.
var
a,b,s,c:real;
procedure Sc(var a,b:real);
begin
c:=sqrt(sqr(a)+sqr(b));
S:=a*b/2;
writeln('c:',c,', S:',S);
end;
begin
write('a b:');readln(a,b);
Sc(a,b);
end.
var
a,b,s,c:real;
function Sss(var a,b:real):real;
begin
Sss:=a*b/2;
end;
function Ccc(var a,b:real):real;
begin
Ccc:=sqrt(sqr(a)+sqr(b));
end;
begin
write('a b:');readln(a,b);
S:=Sss(a,b); c:=Ccc(a,b);
writeln('c:',c,', S:',S);
end.
1 = Безвредные или же неопасные вирусы.
2 = Очень опасные вирусы.
3 = Очень опасные вирусы.
4 = Опасные вирусы.
Объяснение:Безвредные или же неопасные вирусы. Они не мешают работе компьютера, но могут уменьшать объем свободной оперативной памяти и памяти на дисках, действия таких вирусов проявляются в каких-либо графических или звуковых эффектах.
Опасные вирусы. К ней относятся вирусы, которые могут привести к определенным сбоям в работе операционной системы или некоторых программ.
Очень опасные вирусы. Эти вирусы могут уничтожить определенные или все данные, находящиеся на жестком диске, изменить системную информацию, вывести из строя операционную систему и т. д.