var
a,F:integer;
begin
Write('Введите a: '); Read(a);
if a<-3 then F:=3*a*sqr(a)-1
else
if a>5 then F:=3*sqr(a)-2
else F:=sqr(a)-2*a+3;
Writeln('F=',F)
end.
1). 218=332
2). 176,25=незнаю
3). 111000100=452
4). 100000,01=незнаю
Вычисления - в прилагаемом файле
Компьютер это электронно вычислительная машина
инструмент это основное средство
цена компьютера это широкий выбор персональных компьютеров