Составьте программу, которая запрашивает три целых числа и, если ни одно из чисел не...

Question

Составьте программу, которая запрашивает три целых числа и, если ни одно из чисел не равно нулю, выводит на экран их среднее арифматическое.

Comments

Извини, но желательно целую задачу. Поскольку не было на прошлом уроке, вообще не врубилась в тему.

Answer 1

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел три числа:');
  if a*b*c<>0 then Writeln((a+b+c)/3)
end.

Пример
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333

Comments

действительно, так красивее.

Answer 2

На Паскале вот:
var a, b, c: integer;
begin
write('Введите три целых числа: ');
readln(a, b, c)
if a<>0 and b<>0 and c<>0 then
writeln('Среднее арифметическое введенных чисел равно ', (a+b+c)/3:2:2)
else writeln('одно из чисел равно нулю, работа программы завершена');
end.