Теоретический материал | Справочник по процедурам и функциям |
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 Татьяна И вот этим нас в школе мучают!!!( Печалька!;( Оставить комментарий: |