<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>
245-245+245
vсообщение о видах персональных компьютерах и их использование
А) 1 работник - источник, 2 работник - приемник.
б) учитель - источник, ученики - приемник.
в) газета - источник, девочка - приемник.
г) 1 девочка - источник и приемник, 2 девочка так же источник и приемник.
<em><u>Для среды программирования Windows (типа PascalABC.Net)</u></em>
var
f,n:longint;
a:real;
begin
Read(n);
f:=2*n;
if f>0 then f:=2*(f+n)
else f:=n*f;
if f<0 then a:=f/10
else a:=f/2;
Writeln(a)
end.
<em><u>Для среды программирования DOS (типа Turbo Pascal)</u></em>
uses Crt;
var
f,n:longint;
a:real;
begin
ClrScr;
Read(n);
f:=2*n;
if f>0 then f:=2*(f+n)
else f:=n*f;
if f<0 then a:=f/10
else a:=f/2;
Writeln(a);
ReadKey
end.