1. Информатика
  2. Написать программу на Паскале

Написать программу на Паскале
Условие задачи Даны три числа, если они все четные найти их средне арифметическое, если они все нечетные
найти их сумму и произведение.​

fianketo05 fianketo05    2   12.04.2020 17:51    3

Ответы
кукарека666555 кукарека666555  13.10.2020 03:01

// PascalABC.NET

begin

 var (a, b, c) := ReadInteger3('Введи три числа:');

 if a.IsOdd and b.IsOdd and c.IsOdd then

   Print(a + b + c, a * b * c)

 else if a.IsEven and b.IsEven and c.IsEven then

   Print((a + b + c) / 3)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
merjvace555 merjvace555  21.12.2021 21:33
Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объём в байтах (В ответе укажите только число, единицы измерения указывать не нужно): Муха...
Карисёнок Карисёнок  21.12.2021 21:42
Расставь единицы измерения информации в порядке убывания. 13 гб 14.32 мб 15 байт 9 бит 23.8 кб...
fsb001 fsb001  10.08.2019 16:10
Создать программу , которая принимает число n , и выводит сначала все четные до n, потом все нечетные до n. input 10 output 2 4 6 8 10 1 3 5 7 9...
stupidgirl3 stupidgirl3  10.08.2019 16:10
Убабушки 4 внука каждый из них знает 1 язык и занимается 1 видом спорта . антон не знает арабский, не играет в футбол. вадим занимается плаванием, и знает арабский, но не знает...
svepielisz svepielisz  14.05.2020 14:20
Для чего используют компьютерные презентации...
Hamrod Hamrod  14.05.2020 14:18
1) В каких случаях можно использовать обычный массив для моделирования стека? 2) Как построить стек на основе динамического массива? 3) Почему при передаче объекта-стека подпрограммы...
nevzorovivan200 nevzorovivan200  14.05.2020 14:19
ТЬ Складіть проект для обчислення суми натуральних чисел від 100 до 50​...
angelina2410 angelina2410  14.05.2020 14:19
1.Блок-схема линейного алгоритма и структура на языке Паскаль 2.блок-схема алгоритма ветвления и структура на языке Паскаль 3.блок-схема циклического алгоритма и структура на языке...
андрей2048 андрей2048  14.05.2020 14:20
Найти сумму ряда 6.2 (5с2 ) + 6.2 (6с2 ) + 6.2 (7с2 ) +…+ 6.2 (15с2 )...
Danil21K Danil21K  09.08.2019 19:20
Решить со всеми расчетами и полностью. 1. возведи в квадрат 2. вычти 4 первая из них возводит число на экране во вторую степень, вторая – уменьшает число на 4. составьте алгоритм...

Популярные вопросы