Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
svetamalova1876
31.10.2022 09:35 •
Информатика
Написать блок-схему и программу в pascal для вычисления среднего арифметического w трёх чисел x ,y, z. плз умоляю не могу решить.
Показать ответ
Ответ:
ekserukhova16
03.10.2020 18:54
//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y,z:real;
begin
read(x,y,z);
writeln((x+y+z)/3);
end.
Пример ввода:
1
2
3
Пример вывода:
2
0,0
(0 оценок)
Популярные вопросы: Информатика
2006veronika34
26.01.2023 14:29
По заданным ip-адресу и маске сети определите адрес сети: ip-адрес: 224.23.252.131маска: 255.255.240.0...
VictoriaStyle
26.01.2023 14:29
Имеется 19 гирек весом 1, 2, 3, …, 19 г, из которых девять железных, девять бронзовых и одна золотая. известно, что общий вес всех железных гирек на 90 г больше, чем общий вес бронзовых....
ArinaStar337
22.01.2020 13:07
Первый язык программирования высокого уровня. Дать развёрнутый ответ!...
sheremetev02
29.09.2021 00:02
Нужна Заполните таблицу, указав, названия программ, которые необходимы людям в приведенных ситуациях....
ViktoriaTigra
25.01.2021 00:48
Напишите программный код следующей блок схемы PASCAL ABCБасы это НачалоСоны это Конец...
leovd
10.05.2021 10:50
Создать программу и блок схему для вычисления выражения. Информатика, 9 класс. На картинке задание. Дублирую вопрос, потому что завалили неправильными ответами. Ещё раз, мне НЕ НУЖНО...
DIMAZVER1980
14.08.2020 00:07
Подсчитать произведение элементов, которые меньше 4 в данной программе. program massiv; var oc: array [1..10] of integer; i: integer; s:real; begin s:=0; for i:=1 to 8 do begin oc[i]:=1+random(10);...
98653240
15.02.2022 02:49
Сноска 5. Установите соответствие ( ).1 Моя школа 2 Заголовок ... ... стр 153 www.wilai.comАБBГиперссылкаавтоОглавленнеответ...
nikitatutaev03
10.10.2020 00:56
3. Заполни таблицу: НадежностьАргументПарольRTATHKIKJ65&82saD#m12345678...
Gutlock
15.11.2020 12:08
Какие инструменты нужно использовать, чтобы нарисовать 3D -модель прямоугольника? или 20...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y,z:real;
begin
read(x,y,z);
writeln((x+y+z)/3);
end.
Пример ввода:
1
2
3
Пример вывода:
2