Информатика - это наука о способах получения,хранения,накопления,преобразования и передачи данных.
Кибернетика - это что-то связанное с процессами управления. А в принципе кибернетики - это строители роботов.
Держи)
program zad1;
var
i:integer;
a:real;
begin
a:=100000;
for i:=1 to 40 do
begin
if i<5 then
begin
a:=a*1.2;
a:=a*0.88;
writeln(i,' год ',a:0:0);
end
else
begin
a:=a*1.2;
a:=a*0.88;
a:=a-5000;
writeln(i,' год ',a:0:0);
end;
end;
<span>end.</span>
2*16^4+0*16^3+4*16^2+7*16^1+8*16^0=132216
Апрель май июнь июль значит май