Question

Sa se alcătuiască un program care citește doua nr reale a si b si care apoi, in funcție de dorința utilizatorului afișează media aritmetica a nr sau suma patentelor nr sau suma cuburilor nr.

Answer 1

var a,b:real;
s:string;

begin
readln(a,b);
writeln;
write('Procedura: ');
readln(s);

if (s[1]='m') or (s[1]='M') then writeln('Media aritmetica: ',(a+b)/2) else
if (s[6]='p') or (s[6]='P') then writeln('Suma patratelor: ',sqr(a)+sqr(b)) else
if (s[6]='c') or (s[6]='C') then writeln('Suma cuburilor: ',power(a,3)+power(b,3));

end.