Question

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

Answer 1

на Паскале вот:
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.

Answer 2

// 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

Answer 3

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