Актуальность состоит в том, что вирусы тормозят компьютер, т к отслеживают все ваши действия, запоминает пароли и т д. Борьба с вирусами спасает наши конфиденциальную информацию. Но вирусы развиваются, они находят новые лазейки в защите компьютера, поэтому нам очень важно все время бороться с ними.
Var st,sk:integer;
begin
readln(st);
if st>1000
then sk:=trunc(st*0.95)
else if st>500 then sk:=trunc(st*0.97)
else sk:=st;
writeln(sk);
end.
Пример:
3000
2850