Написать программу которая из двух введенных с клавиатуры чисел определяет большее и...

Question

Написать программу которая из двух введенных с клавиатуры чисел определяет большее и возводит его в квадрат,а меньшее делит на 8

Answer 1

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a,b:real;
  Write('Введите a и b: '); Read(a,b);
  if a>b then (a,b):=(b,a);
  Println(a/8,b*b)
end.

Тестовое решение:
Введите a и b: 34 12.7
1.5875 1156

Answer 2

Var
  a, b: real;

begin
  readln(a, b);
  if a = b then writeln('Числа равны')
  else
  if a > b then begin
    a := sqr(a);b := b / 8;
  end
  else begin
    b := sqr(b);a := a / 8;
  end;
  writeln('a = ', a, ' b=', b)
end.