Question

Пожалуйста, помогите решить задачи по Паскалю!!!1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,ПОМОГИТЕЕ

Answer 1

Пишу с планшета, так что заранее извиняйте если что)
Var
a,b:integer;
begin
Readln(a);
Readln(b);
If a>b
then  b:=sqr(b)
else a:=sqr(a)
End.
Как то так)

Answer 2

Конечно, я могу помочь! Давайте напишем алгоритм на языке Паскаль:

program SquareAlgorithm;

var
  num1, num2, square1, square2: integer;

begin
  // Вводим два числа
  write('Введите первое число: ');
  readln(num1);
  write('Введите второе число: ');
  readln(num2);

// Проверяем, какое из чисел больше
  if num1 > num2 then
  begin
    // Возводим большее число в квадрат
    square1 := num1 * num1;
    square2 := num2;
  end
  else
  begin
    // Возводим большее число в квадрат
    square1 := num1;
    square2 := num2 * num2;
  end;

// Выводим результат
  writeln('Меньшее число в квадрате: ', square1);
  writeln('Большее число без изменений: ', square2);

end.

В этом алгоритме мы сначала вводим два числа, затем сравниваем их. Большее число остается без изменений, а меньшее возводится в квадрат. Результат выводится на экран.