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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
