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