задачи по паскалю

[Oksik253]

Вычислить значение выражения, не используя стандартную функцию Abs().
S=//a+b/-2/c-1//

/- это модуль.

В книжном магазине продаются книги следующих жанров: фантастика, роман, детектив, классика, поэзия, учебная литература. Составить программу, которая случайным образом выбирает из списка жанр покупаемой книги, если известно, что классику и поэзию покупают в два раза реже, чем любую другую книгу.

Даны размеры дверного проема и шкафа. Выяснить, пройдет ли шкаф через дверной проем. Шкаф можно поворачивать, наклонять нельзя.

Здоровый щенок играет не менее 8 часов в день. составить программу которая определяет эдоров ли щенок

[Zer0]

1)

var S,a,b,c:real;

function MyAbs(a:integer);
begin
if a<0 then a:=-a;
MyAbs:=-a;
end;

begin
readln(a,b,c);
s:=MyAbs((MyAbs(a+b)-2*MyAbs(c-1));
writeln(s:0:2);
end.

[Mad_Cat]

Здоровый щенок играет не менее 8 часов в день. составить программу которая определяет эдоров ли щенок

var t:real;
begin
readln(t);
write(t>=8);
end.

[Zer0]

Mad_Cat, небольшое замечание:
"Не менее", значит может и восьми равно быть

Даны размеры дверного проема и шкафа. Выяснить, пройдет ли шкаф через дверной проем. Шкаф можно поворачивать, наклонять нельзя.

var wd,hd,ws,ds,hs:real;
begin
write ('Razmery dvery (shirina, visota): ');
readln (wd,hd);
write ('Razmery shkafa (shirina, dlina, visota): ');
readln (ws,ds,hs);
if (hs<=hd) and ((ws<=wd) or (ds<=wd)) then writeln ('Shkaf proydet')
else writeln ('Shkaf ne proydet');
end.