большее из 2 вещественных возвести в квадрат, меньшее в куб
Answers & Comments
preceptor
Var a, b: Real; begin write('Введите число а: '); readln(a); write('Введите число b: '); readln(b); if a > b then begin a := a * a; b := b * b * b; end else begin a := a * a * a; b := b * b; end; writeln('a = ' + a); writeln('b = ' + b); end.
Answers & Comments
begin
write('Введите число а: ');
readln(a);
write('Введите число b: ');
readln(b); if a > b then
begin
a := a * a;
b := b * b * b;
end
else
begin
a := a * a * a;
b := b * b;
end;
writeln('a = ' + a);
writeln('b = ' + b);
end.