Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
More Questions From This User See All
Answers & Comments
uses crt;
var n,m,min:integer;
r:real;
begin
Write('Введите число n: ');
Readln(n);
Write('Введите число m: ');
Readln(m);
If n>m then
min:=m
else
min:=n;
If (n>100) and (m>100) then
begin
n:=min;
m:=min;
Writeln('n= ',n,' m= ',m);
end;
If (n>0) and (m<0) then
Writeln('n= ',n/2,' m= ',m/2)
else
r:=(n+m)/2;
Writeln('Среднее арифм. : ',r);
end.