Решение задач в Паскале

[Hichcog]

Помогите пожалуйста написать программы в паскале.

1)Заданы три величины а, b, c. Определить максимальное и минимальное значение из их произведения, среднего арифметического и cуммы экспонент exp(a) + exp(b) + exp(c)

2) 1. Составьте программу табулирования функции на отрезке [0,1] с шагом 0.1.

3) Для заданной функции вывести на экран значения функции, которые меньше 1 и соответствующие им значения аргумента на отрезке f с шагом h.

4) 1. Составьте программу подсчета суммы нечетных делителей, кратных 5, натурального числа М.

[Sibedir]

Ок, помогу.
Выкладывай, что сделал

[Hichcog]

Вот наброски по первой задаче, не получается разобраться с max и min

program uslovie_4;
var a,b,c,x1,x2,x3:real;
begin
writeln('vvedite znachenia a');
read(a);
writeln('vvedite znachenia b');
read(b);
writeln('vvedite znachenia c');
read(c);
x1:=a*b*c;
x3:=exp(a)+exp(b)+exp(c);
x2:=(a+b+c)/3;
if x1>x2 and x1>x3 then writeln('max x1');
else if x2>x3 tnen writeln('max x2');
else writeln('max x3');
if x1<x2 and x1<x3 tnen writeln('min x1');
else if x2<x3 and x2<x1 then writeln('min x2');
else writeln('x3');
end.

[GetMax]

А где же храниться будут ваши минимальные и максимальные значения?

var a,b,c,x1,x2,x3,max,min:real;
begin
writeln('vvedite znachenia a');
read(a);
writeln('vvedite znachenia b');
read(b);
writeln('vvedite znachenia c');
read(c);
x1:=a*b*c;
x3:=exp(a)+exp(b)+exp(c);
x2:=(a+b+c)/3;
if (x1 > x2) and (x1 > x3) then Max:=x1
Else
If (x2 > x1) and (x2 > x3) then Max:=x2
Else 
If (x3 > x1) and (x3 > x2) then Max:=x3;
If (x1 < x2) and (x1 < x3) then Min:=x1
Else
If (x2 < x1) and (x2 < x3) then Min:=x2
Else
If (x3 < x1) and (x3 < x2) then Min:=x3;
Writeln('Максимум = ',Max:4:2);
Writeln('Минимум =  ',Min:4:2);
Readln 
end.

[Sibedir]

2 Hichcog
Мне кажется, ваше решение вполне рабочее. Там есть синтаксические ошибки, но в целом все норм.
Вот, я бы так и сделал:

var
  a, b, c, x1, x2, x3: Real;
begin
  Write ('Vvedite znachenia a: ');
  Readln(a);

  Write ('Vvedite znachenia b: ');
  Readln(b);

  Write ('Vvedite znachenia c: ');
  Readln(c);

  x1 := a*b*c;
  x2 := (a+b+c)/3;
  x3 := exp(a) + exp(b) + exp(c);

  Writeln;
  Writeln ('x1 = a*b*c = ', x1:6:3);
  Writeln ('x2 = (a+b+c)/3 = ', x2:6:3);
  Writeln ('x3 = exp(a) + exp(b) + exp(c) = ', x3:6:3);
  Writeln;

  if (x1 >= x2) and (x1 >= x3) then
    Writeln ('Max x1')
  else
    if x2 >= x3 then
      Writeln ('Max x2')
    else
      writeln ('Max x3');

  if (x1 <= x2) and (x1 <= x3) then
    Writeln ('Min x1')
  else
    if x2 <= x3 then
      Writeln ('Min x2')
    else
      writeln ('Min x3');

  Readln;
end.

Давай следующую