Напишите программки в PASCAL!!!37. Программка запрашивает два числа и выводит их

Напишите программки в PASCAL!!!
37. Программа запрашивает два числа и выводит их в порядке возрастания. Потом наименьшее число сменяет удвоенным творением введенных чисел, а большее число полусуммой этих чисел.
38. Составить программку, которая убавляет 1-ое введенное число в два раза, если оно больше второго введенного числа.

Задать свой вопрос
1 ответ
37)var  a,b,c : real;begin readln(a, b); begin  if a gt;= b   then writeln(b, a)  else   writeln(a,'и', b) end; if a gt;= b  then b:= b*a*2   else       a:= b*a*2;  if agt;= b   then a:= (a+b)/2  else     b:= (a+b)/2;writeln(a,'и',b);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт