Вывести на экран среднее арифмитическое трех чисел

Nastyisha

Помогите, пожалуйста. Буду очень благодарна. №1 Составьте программу, которая запрашивает 3 числа, если ни одно из чисел не равно 0. Вывести на экран среднее арифмитическое чисел.
2 ответа

Nastyisha

var
  x1,x2,x3:real;
begin
  write('1oe  = ');
  readln(x1);
  write('2oe  = ');
  readln(x2);
  write('3oe  = ');
  readln(x3);
  if (x1<>0) and (x2<>0) and (x3<>0) then writeln('sr.arif = ',((x1+x2+x3)/3):4:2)
  else writeln('odno iz chisel = 0');
  readln;
end.


Nastyisha

Помогите, пожалуйста. Буду очень благодарна. №1 Составьте программу, которая запрашивает 3 числа, если ни одно из чисел не равно 0. Вывести на экран среднее арифмитическое чисел.
Условие
...если ни одно из чисел не равно 0
может трактоваться неоднозначно... Пока программа без него. Уточните...
uses crt;
var a,b,c,SrZnach:real;
BEGIN
  clrscr;
  write('Input a = '); readln(a);
  write('Input b = '); readln(b);
  write('Input c = '); readln(c);
  SrZnach:=(a+b+c)/3;
  writeln('Srednee znachenie = ',SrZnach:6:3);
END.