Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
<span>end.</span>
Тогда так
Актуальность состоит в том, что вирусы тормозят компьютер, т к отслеживают все ваши действия, запоминает пароли и т д. Борьба с вирусами спасает наши конфиденциальную информацию. Но вирусы развиваются, они находят новые лазейки в защите компьютера, поэтому нам очень важно все время бороться с ними.
1. 456_8=4*64+5*8+6*1=256+40+6=302
2359_16=0010001101011001
13CF_16=1001111001111_2=11717
11212_3=2*1+1*3+2*9+1*27+1*81=2+3+18+27+81=131_10=203_8=83_16