Задание:
Написать программу для вычисления среднего арифметического W трех чисел Y , X ,Z должны вводиться с помощью командыReadln
Решение:
Var w,y,x,z: realbeginWriteln ('Vvedite chislo 1: '); Readln (x); Writeln ('Vvedite chislo 2: '); Readln (y); Writeln ('Vvedite chislo 3: '); Readln (z); w: =(x+y+z) /3; Writeln ('W=',w) Readlnl; end; Могу быть ошибки если что. И Это не сразу готовая программа это только середина, которая выполняет расчеты…
Знаете другой ответ?