Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vipvip16tk
07.01.2020 15:24 •
Информатика
Решите на паскале на if case.если введённое число положительное, то вычесть из него 5, если равно нулю, то прибавить 20, во всех остальных случаях разделить на 6
Показать ответ
Ответ:
Нияз170406
08.10.2020 21:12
Var
n:real;
begin
Write('Введите число: ');
Readln(n);
if n>0 then n:=n-5
else if n=0 then n:=n+20
else n:=n/6;
Writeln('n=',n)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ul1qq
14.06.2020 09:22
Написать код на языке java №1. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. №2. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то...
akm0910
30.03.2020 17:20
Розробiть програму, у якій виконується опера тор (+) над даними: 21.5, 4, 37 ; «Київ», «-21», а також оператор (*) над даними: 48, 5; «7», «Україна»....
sasockolowa
03.04.2023 04:00
Вмассиве хранятся данные о заработке на протяжении недели (случайные числа от 500 до 2000). составить программу, которая вычисляет суммарный заработок за всю неделю и средний...
DANA3072005
04.06.2023 21:13
В тетради пошагово нарисуйте каждую команду....
Anilecchi
30.03.2020 18:09
• Контур • Следуй за мной • Тяни/толкай • Дуга • Выбор...
оля2045
29.04.2022 06:12
Показать место профессионального самоопределения в социализации личностиПо пунктам По 2-3 слова, не страницы текста...
anarazeynalova
29.04.2022 06:12
Установіть відповідність1 Одночасність подій2 Умовні3 Причинові4 Послідовність подій А Минає день в турботах, минає ніч у мареннях про щастяБ Летить до сонця захоплений Ікар,...
Rorshach
14.06.2022 11:52
сочинение на тему men yaxshi ko‘rgan mashg‘ulotim на узбекском языке...
sashawinner13
14.06.2022 11:52
расположите события в хронологическом порядке А)азовское осадное сидение донских казаков Б)востание под предводительством И И Болотникова В)война России с Турцией и Крымом Г)переяславская...
sofirzhk
31.12.2020 09:38
Атмосферное давление зимой мыс лопатка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n:real;
begin
Write('Введите число: ');
Readln(n);
if n>0 then n:=n-5
else if n=0 then n:=n+20
else n:=n/6;
Writeln('n=',n)
end.