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

[ЛеММА 16]

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

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

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

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

[Account]

Я конечно извиняюсь, но то что у Вас маленький ребенок к делу никакого отношения не имеет, этим вы намекаете что у вас времени нет на то что бы занятся задачами, а счего вы взяли что у других оно есть Вы хоть какой-нито код накидали?

НЕ знаю какое x по заданию вводится я подразумевал что целое число, так как под вещественное надо переписывать код) (К первому заданию)

uses crt;
var
x:integer;
f:real;
begin
clrscr;
write('Введите x:');
readln(x);
case (x mod 3) of
0:f:=sqr(x);
1:f:=x;
else f:=x/3;
end;
writeln('f(x)= ',f:2:2);
readkey;

end.

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

[ЛеММА 16]

Я конечно извиняюсь, но то что у Вас маленький ребенок к делу никакого отношения не имеет, этим вы намекаете что у вас времени нет на то что бы занятся задачами, а счего вы взяли что у других оно есть Вы хоть какой-нито код накидали?

НЕ знаю какое x по заданию вводится я подразумевал что целое число, так как под вещественное надо переписывать код) (К первому заданию)

uses crt;
var
x:integer;
f:real;
begin
clrscr;
write('Введите x:');
readln(x);
case (x mod 3) of
0:f:=sqr(x);
1:f:=x;
else f:=x/3;
end;
writeln('f(x)= ',f:2:2);
readkey;

end.

Большое спасибо вам!!! Вы добрый человек.