Нужно составить программу..

0 голосов
12 просмотров

Нужно составить программу..


image

Информатика (190 баллов) | 12 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//1
var
  a, b: real;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  writeln((a*a*a + b*b*b) / 2)
end.


//2
var a, b, c, f: real;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  write('c = '); readln(c);
  f := ((b + sqrt(b*b+4*a*c))/(2*a))-(a*a*a)*c+b;
  writeln(f);
end.

(9.4k баллов)