| Теоретический материал | Справочник по процедурам и функциям | 






   Program example1; 
   var a, f:real; 
   begin 
       write('Введите a> '); readln(a); 
          if a<-1 then f:= -a-1 else 
            if (a>=-1) and (a<0) then f:= a+1 else 
            if (a>=0) and (a<1) then f:= -a+1 else f:= a+1; 
          writeln('F= 'f); 
   end. 

a)![]()  | 
    ![]()  | 
b)![]()  | 
2011-11-30 12:26:20 Татьяна  И вот этим нас в школе мучают!!!( Печалька!;( Оставить комментарий:  |