Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sveta6729
27.12.2022 01:29 •
Информатика
Напишите построчную запись алгоритма нахождения среднего арифметического из трёх введенных на клавиатуре чисел и вывода на экран результата в том случае, если оно будет положительным ( напишите на языке паскаль)
Показать ответ
Ответ:
MilаKlimenkova
30.09.2020 09:17
Program Project;
uses crt;
var
a,b,c: real;
sa: real;
begin
clrscr;
Read(a,b,c);
Readln;
sa:=(a+b+c)/3;
if sa>=0 then
Writeln(sa:0:5);
Readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
marybyl86
22.05.2020 22:05
Решить информатика 7 класс арифметические выражения. линейные программы...
Yana19032003
22.05.2022 23:52
Решите задачи: 1) оцените, сколько школьных сочинений размером в 2 машинописные страницы (в одной странице 40 строк по 50 символов в одной строке) можно уместить на...
kosarymova
13.03.2023 02:51
Нужно нарисовать блок-схемы по графикам...
spritemax11
05.02.2022 12:49
Сколько времени потребуется для передачи по сети текста, расположенного на 3 страницах (страница содержит 50 строк, по 70 символов в строке). Скорость модема 14400 бит/с....
АВатар1765
17.05.2023 01:57
Сколько дюймов в 10 точках (pt)? (ответ округли до сотых!)...
Ульяна3330
24.12.2022 12:57
Напишите наибольшее число х, для которого истинно высказывание: (х кратно 4) И НЕ (х =16)...
BOILHbIU
30.07.2021 11:05
Алфавит тумба-юмба 18 букв, все слова состоят всегда из 6 букв, главное заклинание состоит из 110 слов ,определить объём заклинания в бит и байтах Решите , с решением)...
nimnogopozitiva
19.05.2021 18:49
ПРОГРАММИРОВАНИЕ решить задачу на C++/Python G. Браконьеры ограничение по времени на тест: 1.5 секунд ограничение по памяти на тест: 256 мегабайт ввод: стандартный ввод...
bviktoria4567
06.02.2023 21:42
нужны координаты на имя соня в исполнителе чертежник...
zarina20178
24.12.2021 16:35
Сколько лет Windows XP?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a,b,c: real;
sa: real;
begin
clrscr;
Read(a,b,c);
Readln;
sa:=(a+b+c)/3;
if sa>=0 then
Writeln(sa:0:5);
Readln;
end.