Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Битсухатян
23.03.2022 13:29 •
Информатика
Разработать программу на языке паскаль для ввода 2-х целых чисел а и b и вычисления их среднего арифметического с.
Показать ответ
Ответ:
Ked4
01.09.2020 15:51
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите два числа через пробел:');
var c:=(a+b)/2;
Writeln('Их среднее арифметическое равно ',c)
end.
0,0
(0 оценок)
Ответ:
karrr123
01.09.2020 15:51
var
a,b:integer;
begin
Writeln('Введите 2 числа');
Readln(a,b);
Writeln('Среднее арифметическое этих чисел -> ', (a + b)/2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nobd
17.07.2022 09:31
Напишите программу вычисления среднего арифметического двух чисел. (в паскале) заранее )...
danilgrekov20
15.02.2021 03:47
Напишите программу, еоторая заполняет массив из 10 элементов случайными числами на отрезке [ -5; 5] и находит сумму ненулевых элементов. в системе паскаль. никак не могу...
умник1626
18.05.2023 02:06
Билетная касса. ограничение времени ограничение памяти ввод 1 секунда 64mb стандартный ввод или input. txt вывод стандартный вывод или output. txt напишите программу, которая...
fomax1337
05.03.2020 02:09
Создайте блок-схему на тему r=2 найдите диаметр окружности...
GreenTea111
05.03.2020 02:09
Составьте блок-схему на тему дан радиус круга r=2. найдите диаметр круга. надо...
Ника72432525
21.04.2020 23:17
Как измениться положение запятой в десятичной дроби, если эту дробь: б) уменьшить в 10 раз, а затем увеличить в 1000 раз?...
edkoll79p04ynu
21.04.2020 23:17
Какие культурные нормы и правила поведения усваивает подросток и какими социальными ролями овладевает: в кругу семьи,компании друзей,общественных местах,!...
may12312
21.04.2020 23:17
Напишите 6-8 предложений на тему: как я выбираю книгу для чтения . хорошие предложения напишите!...
fakersot
21.04.2020 23:17
Выдели корень и напиши проверочные слова к словам: денёк,,зима,вечер,удивидельная ,носовой,нарядить,ночная,смешной,холодный,страна,осенние,сапоги.зелёный,листок....
Psix73
21.04.2020 23:17
Водном рассказе виктора драгунского мама говорит дениске: тайное всегда становится явным я эту мысль понимаю так...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите два числа через пробел:');
var c:=(a+b)/2;
Writeln('Их среднее арифметическое равно ',c)
end.
a,b:integer;
begin
Writeln('Введите 2 числа');
Readln(a,b);
Writeln('Среднее арифметическое этих чисел -> ', (a + b)/2);
end.