Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gargallik
13.06.2021 01:37 •
Информатика
Дано число. если оно больше 10, то вывести на консоль, если оно меньше 3, увеличить его на 11 и вывести на консоль, в остальных случаях уменьшить на 100. pascalabc
Показать ответ
Ответ:
nataly163
09.09.2020 01:54
Program n1;
var a: real;
begin
readln(a);
if a>10 then write(a)
else if a<3 then write(a+11)
else writeln(a-100);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rzaynullina
26.12.2020 05:14
Среди чисел 1, 4, 9, первое число, большее n...
ketium2oo5
26.12.2020 05:14
Ученик набирает доклад по биологии на компьютере, используя кодировку koi-8. каждый символ в кодировке koi-8 занимает 1 байт памяти. определите какой объем памяти в битах займет...
АААННЯЯЯ111
11.11.2022 14:07
десятичное число 61 эквивалентно 115 числу 115 в некоторой другой системе.найдите основание этой системы...
bubnovasofya20
26.08.2020 18:28
Нужна Составить схему алгоритма и написать на языке Паскаль . Под номером 3...
lancasterr
13.04.2023 03:25
Дано двузначное число. определить: превышает ли сумма его цифр само число; является ли сумма его цифр двузначным числом; оканчивается ли введённое число цифрой 5? заранее ))...
Your1sad1waifu
10.03.2023 10:33
ответы нужны в питоне. 1. Задание 25 Дан массив, содержащий 2017 положительных целых чисел, не превышающих 1000. Необходимо найти и вывести максимальный из тех элементов этого...
KONERtm
12.10.2020 03:29
А)Напишите программу, которая вычисляет сумму трех чисел, введенную в форме символьной строки. Все числа целые.Пример:Введите выражение:12+3+45 ответ: 60 Питон вот пример как...
ZiGZaG4242
07.03.2023 17:12
Проверьте, что изменяется при переключении режима Направление:Если включить направление «Вверх», при поиске программа текст...
лидусик13
11.05.2021 13:53
Максимальная скорость передачи данных в локальной сети 100 мбит/с сколько страниц текста можно передать за 1 сек если 1 страница текста содержит 50 строк и на каждой строке...
абвгдежзи7777
04.10.2020 03:31
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 30 символов в этой кодировке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: real;
begin
readln(a);
if a>10 then write(a)
else if a<3 then write(a+11)
else writeln(a-100);
end.