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

руслан797 руслан797    1   19.06.2019 12:50    0

Ответы
alinastoyka alinastoyka  15.07.2020 19:21
Program A1;
var
N,M,K:real;
Begin
writeln('Введите числа N и M');
readln(N,M);
If N>100 and M>100 then
N:=N-1;
M:=M-1;
writeln(M,N);
If N>0 and M<0 then
N:=N/2;
M:=M/2;
writeln(N,M)
Else
K:=0;
K:=(M+N)/2;
writeln(K);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика