Question

Даны два числа А и В.Найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (А=5,В=7).Решите на паскале!!!!!!

Answer 1

Program zz;
var a,b:integer;
begin writeln('Введите число A ');
readln (a); writeln('Введите число  B '); 
readln (b); a:=a*a; b:=b*b; 
if a>b then writeln(a)       
          else writeln(b);
 if a>b then writeln(1)
       else writeln(2);
end.

Answer 2

Решение задачи на Pascal

Для решения данной задачи на Pascal можно воспользоваться следующим кодом:

program FindSquareAndPosition;
var
  A, B, result: integer;
begin
  A := 5;
  B := 7;

if A > B then
  begin
    result := A * A;
    writeln('1');
  end
  else
  begin
    result := B * B;
    writeln('2');
  end;

writeln(result);
end.

Этот код на Pascal выполняет следующие действия: 1. Инициализирует переменные A и B со значениями 5 и 7 соответственно. 2. Сравнивает A и B, находит большее из них, находит квадрат большего числа и выводит "1", если это первое число, и "2", если второе. 3. Выводит квадрат большего числа.

Вы можете использовать этот код в среде программирования Pascal для получения результата.