Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отр...

Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
Гость
Ответ(ы) на вопрос:
Гость
Program asd; 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы