Предмет: Информатика,
автор: NastyaFlower01
Составьте программу, которая запрашивает три целых числа и, если ни одно из чисел не равно нулю, выводит на экран их среднее арифматическое.
Ответы
Автор ответа:
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.
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
// Внимание! Если программа не работает, обновите версию!
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
Автор ответа:
0
действительно, так красивее.
Похожие вопросы
Предмет: Алгебра,
автор: MishailMartinyk
Предмет: Русский язык,
автор: rolan9016
Предмет: Геометрия,
автор: ernt2
Предмет: Биология,
автор: ilnursitdikov
Предмет: Литература,
автор: angelina2135