Введите с клавиатуры числа c и m. Если меньшим из них является c, но его значение...

Question

Введите с клавиатуры числа c и m. Если меньшим из них является c, но его значение положительно, найдите и выведите на экран среднее арифметическое значений этих чисел. Иначе, найдите и выведите сумму c и m.

Comments

Program A3;varb,c,i,m:integer;a:real;beginwriteln('Vvedi C');readln(c);writeln('Vvedi M');readln(m);if c0 then begin a:=(c+m)/2; writeln('srednee arifmet = ',a); end;if c>m then writeln('summa = ',c+m);end.

---

Если помог нажми "Спасибо"

---

Вообщем алгоритм: мы вводим С и М, если С меньше М и С больше нуля то находим среднее арифмет. если С больше М то находим сумму

Answer 1

Program A3;varb,c,i,m:integer;a:real;beginwriteln('Vvedi C');readln(c);writeln('Vvedi M');readln(m);if c0 then begin a:=(c+m)/2;  writeln('srednee arifmet = ',a); end;if c>m then writeln('summa = ',c+m);end.