Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
danilkarev201
21.05.2022 01:03 •
Информатика
Составить программу которая вычисляет значение z=x/y где y=sinx+0,5. в случае y=0 вывести на печать сообщения деление на 0
Показать ответ
Ответ:
Nagoshka
02.10.2020 03:08
Program zzz;
var z,x,y: real;
begin
writeln ('Введите x');
readln (x);
y:=sin(x)+0.5;
z:=x/y;
if y=0 then writeln ('Деление на ноль') else
writeln ('z=',z);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mayburovmaks
19.07.2022 07:56
Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=12; for i:=0 to 4 do begin a:=a-i; end; 2. Чему будет равно значение целой переменной a...
xayalaamirova2
01.03.2020 12:50
Перевести из C в Java print_f ( Y/N ) epl1=scan_f(%pl1); print_f ( Y/N ) eK_INF=scan_f(%eK_INF); pl=scan_f(%pl); bs=scan_f(%bs); TERM=scan_f(%TERM); case epl1==Y && eK_INF==Y...
anelya033
21.10.2020 11:07
Поместится ли книга на гмд ёмкостью 1.44мб если в книге 540 страниц на одной странице 60 строк в одной строке 65 символов? если вся книга не поместится то сколько страниц поместится?...
Новичок301117
21.10.2020 11:07
Написать код решения в паскале. кощей бессмертный зарыл клад на глубину 1 м. этого ему показалось не достаточно, он отрыл клад, углубил колодец до 2 м и снова зарыл. этого ему опять...
CrazyBublic02
01.06.2021 23:36
с решением задания, сыну надо... Рис. 1. Схема сети.Router 1 имеет дополнительный сетевой интерфейс, который добавляется измодуля WIC-1ENET при выключенном роутере.Задания:1. Вам дано...
LOSS903903
13.05.2023 04:54
Вопрос Укажите подсистему для системы Информационные ресурсы компьютера .1) Прикладные программы2) Текстовые файлы3) Программы управления4) внешними устройствами5) Устройства хранения...
Kseniyak04
03.12.2022 20:27
Изображение было оцифровано и записано в виде файла без использования сжатия данных. Получившейся файл был передан в город А по каналу связи за 90 секунд. Затем то же изображение было...
erenina88
15.04.2022 10:54
Определите количество натуральных чисел, удовлетворяющих неравенству...
Natalye71
04.06.2021 23:41
Выполните арифметические операции над двоичными числами. Для того чтобы убедиться в правильности Полученных результатов, найдите десятичные эквиваленты операндов и результата. а) 101111010^2...
Макси00084322233
21.04.2021 19:59
Найдите, охарактеризуйте и исправьте синтаксические речевые ошибки разных типов 1) На предыдущих занятиях шло обсуждение вопроса организации рабочих смен. 2) В майский полдень в комнате...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var z,x,y: real;
begin
writeln ('Введите x');
readln (x);
y:=sin(x)+0.5;
z:=x/y;
if y=0 then writeln ('Деление на ноль') else
writeln ('z=',z);
end.