Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Meryem98
19.05.2023 20:40 •
Информатика
Составить программу на паскале найти среднее арифметическое трѐх целых случайных чисел, принадлежащих промежутку [0; 10).
Показать ответ
Ответ:
Horosh2545
03.07.2020 18:53
На pascal abc
uses crt;
var
a, b, c : real;
begin
write('Введите три числа (через пробел): ');
readln(a, b, c);
if (a>=0) and (a<10) and (b>=0) and (b<10) and (c>=0) and (c<10)
then writeln ((a+b+c)/3)
else writeln ('Число не принадлежит промежутку [0;10)');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Romanzadacha2
28.05.2020 16:19
Для какого из указанных значений числа x ложно выражение: не(x 6) или ((x 5) и (x ≥ 1) 7 2) 6 3) 5 4) 4...
тэ10л
31.05.2020 03:12
Написать программу сравнения двух чисел a и b, в результате программа должна наименьшее из этих чисел увеличить в два раза....
zulyarakhimovaa
03.01.2020 00:43
1.запишите 32-разрядное представление отрицательного вещественного числа -0,00132...
mashakesea03
21.06.2022 09:27
Конспект по темеЗакон всемирного тяготения...
Юлианана228
14.05.2022 16:57
Какие реформы происходили в русском классицизме?...
дарууунчик
28.12.2020 07:13
Прочитайте притчу болгарского писателя X. Пелитева. Оцените поступки голубя и змеи с точки зрения добра и зла. Высиживая птенцов, голубь ненароком выпихнул одно яичко из гнезда,...
ked00p08uz1
11.01.2022 23:13
Побудуйте графік рівняння :xy-x=0 будь ласка нада...
Vildan609
21.04.2023 16:54
Найдите нейзвестные компоненты действий. б)х+28106=89000 900400-х=21827 х-107219=492611 392670-х=94626 821010+х=1000000 х-5031=701889 643000-х=435 х+17=235000...
Odesskiy2003
17.05.2022 06:17
Посилення кризи в Росії та Австро-Угорщини в роки війни Економіна Соціальна Політична табл...
Natasatana
28.03.2023 15:12
Очень нужно Прочитайте предложения и определите в них тропы и риторические фигуры. Вдруг за кипами ящиков то шорох, зашуршало, зазвенело, задребезжало стекло, и из узкого прохода...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a, b, c : real;
begin
write('Введите три числа (через пробел): ');
readln(a, b, c);
if (a>=0) and (a<10) and (b>=0) and (b<10) and (c>=0) and (c<10)
then writeln ((a+b+c)/3)
else writeln ('Число не принадлежит промежутку [0;10)');
end.