Задачки по логическому оператору Опции

[ЛеММА 16]

Помогите решить хоть какую-нибудь задачку!

1. Вычислить значение F(x):
Х в квадрате, если Х кратно 3
F(x)= Х, если Х при делении на 3 дает остаток 1
Х/3,в остальных случаях

2.Найти произведение двух наибольших из трех введенных с клавиатуры чисел.

3. Вычислить: К=МАХ(а+в,в*с,в в квадрате)

[Account]

Вот вторая задача

uses crt;
var
a,b,c,p:integer;
begin
clrscr;
write('Введите три числа через пробел:');
readln(a,b,c);
if (a>b) or (a>c) then begin if b>c then p:=a*b else p:=a*c end
else p:=b*c;
writeln('Proisvedenie = ',p);
readkey;
end.

Вот третье задание

uses crt;
var
a,b,c,k:integer;
begin
clrscr;
write('Введите a,b,c через пробел:');
readln(a,b,c);
if ((a+b)>(b*c)) and ((a+b)>sqr(b)) then k:=a+b else
if (b*c)>sqr(b) then k:=b*c else k:=sqr(b);
writeln('k = ',k);
readkey;
end.

Сообщение отредактировано: Account - 4.01.2009 23:47