Напишите программы в PASCAL!!! 37. Программа запрашивает два числа и выводит их в порядке возрастания. Затем меньшее число заменяет удвоенным произведением введенных чисел, а большее число полусуммой этих чисел. 38. Составить ...
Напишите программы в PASCAL!!!
37. Программа запрашивает два числа и выводит их в порядке возрастания. Затем меньшее число заменяет удвоенным произведением введенных чисел, а большее число полусуммой этих чисел.
38. Составить программу, которая уменьшает первое введенное число в два раза, если оно больше второго введенного числа.
Гость
Ответ(ы) на вопрос:
Гость37)var a,b,c : real;begin readln(a, b); begin if a >= b then writeln(b, a) else writeln(a,'и', b) end; if a >= b then b:= b*a*2 else a:= b*a*2; if a>= b then a:= (a+b)/2 else b:= (a+b)/2;writeln(a,'и',b);end.
Не нашли ответ?
Похожие вопросы