Предмет: Информатика, автор: NastyaFlower01

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

Ответы

Автор ответа: lasept
0
на Паскале вот:
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.
Автор ответа: Аноним
0
// 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
Автор ответа: lasept
0
действительно, так красивее.
Похожие вопросы
Предмет: Алгебра, автор: MishailMartinyk
Предмет: Русский язык, автор: rolan9016
Предмет: Геометрия, автор: ernt2
Предмет: Биология, автор: ilnursitdikov