Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа
1-4 класс
|
больше 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.
Другие вопросы из категории
снежный буран. 4)На Камчатке много горячих гейзеров. 5)Караван двигался по песчаным барханам. 6)Вдали появились ледяные айсберги. 7)Однажды раз мы заблудились в лесу. 8) Мы вновь возобновили переписку. 9)Муму очень сильно привязалась к Герасиму. 10)Через месяц спустя геологи уехали.
Читайте также
обоев. Площадь окон и дверей не учитывать. Известна стоимость одного рулона (86 рублей) обоев длиной 12 м и шириной 0,6 м. Составьте программу определяющую, какая сумма необходима для покупки обоев.
компьютером. (2 слова). прикладные программы для выполнения на компьютере конкретных задач