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

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
13 голосов, оценка 3.692 из 5
Похожие ответы