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






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