Составьте простую программу. Пожалуйста, даю 50 баллов. 1)найти большее или меньшее из...

Question

Составьте простую программу. Пожалуйста, даю 50 баллов.
1)найти большее или меньшее из двух чисел, затем большее умножить на 2, а меньшее разделить на 2
2) найти большее или меньшее из двух чисел

Comments

Числа вводит пользователь?

---

любые

Answer 1

Var
a,b:real;
begin
writeln('Введите два числа');
readln(a,b);
if a>b then begin
writeln('Первое число больше второго');
a:=a*2;
writeln('Большее умножили на 2,получилось = ',a);
b:=b/2;
writeln('Меньшее разделили на 2, получилось = ',b);
end
else begin
writeln('Второе число больше первого');
b:=b*2;
writeln('Большее умножили на 2,получилось = ',b);
a:=a/2;
writeln('Меньшее разделили на 2, получилось = ',a);
end
end.