Даны два числа m,n.Большее из этих чисел уменьшить ** 3, а меньшее удвоить.Составить...

Question

Даны два числа m,n.Большее из этих чисел уменьшить на 3, а меньшее удвоить.Составить алгоритм

Comments

на паскале?

---

if(m > n) then begin

---

нет, ветвления

---

Дайте пример в личные сообщения.

Answer 1

Var
m,n:integer;
begin
writeln('m=');
readln(m);
writeln('n=');
readln(n);
if m>n then begin m:=m-3; n:=n*2; end else
if mwriteln('m=',m,' n=',n)
end.