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

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

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

Код к задаче: «Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат - 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;

Полезно ли:

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

СОХРАНИТЬ ССЫЛКУ

Похожие ответы

1 Написать программу перевода целого числа a из цифрового формата в прописной - Pascal ABC

2 Написать программу формирования ОПЗ и расчета полученного выражения - Pascal ABC

3 Написать программу, которая по введенному значению аргумента вычисляет значение функции - Pascal ABC (12538)

4 Определить процедуру, позволяющую распознавать степень пятерки. - Pascal ABC

5 Даны натуральные k, m. Написать процедуры для вывода следующих фигур - Pascal ABC

6 Написать программу для построения графика функции - Pascal ABC

7 написать программу которая, используя признаки делимости, определяет, делится ли число на 6 - Pascal ABC

8 Массивы, нужно написать 4 задачи - Pascal ABC

9 Написать программу, которая по введенному значению аргумента вычисляет значение функции - Pascal ABC (12857)

10 Написать программу для нахождения наибольшего общего делителя двух целых чисел - Pascal ABC