Братишки-зайчишки, помогите пожалуйста.
Нужно найти куб какого числа из 3-ех наибольший, паскаль, решить через функцию.
Благодарю вас, головешки светлые мои :3

1

Ответы и объяснения

  • Участник Знаний
2014-03-03T22:54:44+04:00
Var a,b,c,y:real;
begin
read (a,b,c);
if (a<>b)and (a<>c) and (b<>c) then
begin
if (power (a,3) > power (b,3)) and (power (a,3) > power (c,3)) then y:=a;
if (power (b,3) > power (a,3)) and (power (b,3) > power (c,3)) then y:=b;
if (power (c,3) > power (a,3)) and (power (c,3) > power (b,3)) then y:=c;
writeln (y);
end else
writeln ('Числа равны');
end.