сервис вопросов и ответовсоставьте программу, которая запрашивает три целых числа и , если ни одно из чисел не равно нулю, выводит на экран их среднее арифметическое.
5-9 класс|
|
Zhenya1012
01 марта 2017 г., 23:23:44 (7 лет назад)
Rikor
02 марта 2017 г., 1:30:54 (7 лет назад)
Program d;
var a,b,c:integer;
Begin
Writeln('введите 3 целых числа через пробел'); Read(a,b,c);
if (a<>0) and (b<>0) and (c<>0) then writeln((a+b+c)/3)
else writeln('одно из чисел равно нулю');
Readln;
end.
Проверил - все работает. Если возникнут вопросы - пиши в личку.
Удачи!
Ответить
Другие вопросы из категории
помогите пожалуйста))завтра урок уже(( А2внизу16-33внизу8*100внизу2-55внизу10:101внизу2=0внизу16 15внизу16+7внизу8+9внизу10=0внизу2
100внизу16+100внизу8+100внизу2=0внизу10
16внизу16+16внизу8=0внизу8и16
100внизу16-10внизу8-1внизу2=0внизу16и2
21внизу10+11внизу8-1001внизу2=0внизу16,8,2,10
сколько надо указывать изгибов при рисовании кривой?
А 2
В 1
С 1
D 4
. Напишите программу в паскале, которая меняет местами значения целых переменных M и N без использования дополнительной переменной. Ниже представлен рекоме
ндуемый вид экрана во время работы программы (данные вводимые пользователем выделены полужирным шрифтом).
Введите число M=> 5
Ведите число N=> 7
-----------------------
Новые значения:
M=7, N=5
Читайте также
Помогите пожалуйста. Очень прошу) Заранее благодарна)
Дана программа:
Program p1;
var a:integer.
begin
write('Введите целое число:');
readln(a);
if(a>=100) and (a<1000)then write(' Да')
else write(' Нет');
End.
1.Запишите, что будет выведено на экране в результате выполнения данной в п.1 программы. при=-2, при а=123.
2. Внести данную программу изменения таким образом, чтобы программа определяла, удовлетворяет ли данное вещественное число а неравенству -14,5 < a <_ 18,
3. Даны целые числа a и b. Составьте программу, определяющую, есть ли среди них хотя бы одно, не равное нулю.
4. Ввести три целых числа. Если ни одно из чисел не является чётным, то вывестина экран их произведение.
Тема с Packal ABC.
составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов,формирует и выводит на экран в
строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах
Помогите составить программу по информатике в Pascal ABC. Задание 1. С клавиатуры одной строковой вводят имя и фамилию. Составьте программу, которая:
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
1)Составьте программу,которая заполняет массив e[1..11] случайными целыми числами в диапазоне от -15 до 1 и находит количество элементов кратных 5.
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
4 а) составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 , затем элементы с четными индексами
удваиваются , а элементы с нечетными индексами утраивает.Выведите на экран исходный и полученный массив.
б)составьте программу ,которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 , затем изменяет знак элементов с четными индексами на противоположный .Выведите на экран исходный и полученный массивы.
5) а)составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 ,и находит количество элементов ,которые больше своего соседа слева
б)составьте программу ,которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 и находит количество пар элементов с четными значениями.
6) а)составьте программу ,которая заполняет массив а[1..20 ] случайными целыми числами в диапозоне от 1 до 10 ,и находит среднее арифметическое элементов с четными значениями и нечетными индексами.
б) составьте программу ,которая заполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20 и выводит все тройки элементов , упорядоченные строго по возрастанию.
Вы находитесь на странице вопроса "составьте программу, которая запрашивает три целых числа и , если ни одно из чисел не равно нулю, выводит на экран их среднее арифметическое.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.