Составьте программу,которая запрашивает три целых числа и,если ни одно из чисел не равно нулю,выводит на экран их среднее арифмитическое.
1-4 класс
|
program zadaca;
var
a,b,c:integer;
d:real;
begin
readln(a,b,c);
if (a<>0)and(b<>0)and(c<>0) then
d:=(a+b+c)/3;
write(d);
end.
Другие вопросы из категории
этой строкой молоток а дальше все пусто. Помогите! Потом к этому же заданию надо придумать свое слово.
1)школьник читает текст в учебнике
2)бабушка читает письмо
3)мальчик просыпается от звонка будильника
4)разговаривают две подруги Таня и Лена
5)учитель объясняет новый материал всему классу 6)регулировщик управляет потоками машин и пешеходов:
7)человек читает объявление в газете:
8)завуч вывешивает листочек с изменениями в расписание уроков:
9)диспетчер сообщает, что автобусный рейс отменяется:
10)вывешен знак, запрещающий проезд по улице;
11)мальчик получил пригласительный билет на ёлку
Читайте также
позволяет ввести три вещественных числа и выводит на экран:
сумму
всех трех чисел;
модуль
разности первого и второго чисел;
целую
часть произведения второго и третьего чисел.
Все вещественные числа должны быть
выведены в форме с фиксированной точкой с двумя знаками после запятой; перед
каждым вычисленным значением должны идти пояснительный текст и выражение.
больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
Входные данные:
Во входном потоке заданы два целых ненулевых числа, значение которых по модулю не превышают 30000.
Выходные данные:
В выходной потов вывести единственное целое число.
Пример входного файла
3 9