Question

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

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.