Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат - Pascal ABC

Формулировка задачи:

Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат, а минимальное число увеличивает в 2 раза Добавлено через 2 часа 8 минут Ну пожалуйста кто нибудь помогите мне неразумной с этой задачей...((


textual

Код к задаче: «Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат - Pascal ABC»

procedure Nyshka(var a, b: double);
begin
  if a > b
    then begin
      a := a * a;
      b := b * 2
    end
    else if b > a
      then begin
        b := b * b;
        a := a * 2
      end
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.692 из 5

Источник