Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
rudens2007
01.10.2022 21:16 •
Информатика
B) ввести число. если его модуль больше 7, уменьшить число в 1,5 раза, в противном случае увеличить в 7 раз.
Показать ответ
Ответ:
Farman2001
07.10.2020 23:13
Var n:real;
begin
readln(n);
if abs(n)>7 then begin
n:=n/1.5;
end else begin
n:=7*n;
end;
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
фриск12345
09.11.2021 05:26
Написать программу которая 5 чисел располагает в порядке возростания...
lalal2345
01.06.2022 19:14
Система отказов исполнителя. отказ «не понимаю» возникает тогда, когда исполнителю подается команда, не входящая в его ски. отказ «не могу» возникает тогда, когда команда из ски не...
yanvoronovich
04.11.2021 06:38
Сколько значащих нулей в двоичной записи восьмеричного числа 1253(8)...
autegenova
04.11.2021 06:38
Нужно к завтрашнему дню меня...
shuraKotokoto
12.05.2021 06:58
Определите значение переменной b после выполнения данного : a : =3 b: =2+a. a : =b*2*a b : = 2*a-b...
FleachBeast
28.10.2022 12:49
Питон (циклические алгоритмы) написать программу. составить программу вывода в строку целых чисел от 5 до 10....
даша3645
03.05.2020 22:37
Начала программирования, в паскале! 1. составить программу, выводящую на экран значение вещественной переменной x, равное значению выражения( a+b) /(a*b); a и b – целочисленные переменные,...
voronvoron2002
07.03.2021 18:18
Вывести программу по информатике: имеется сумма денег покупаем 3 вещи найти остаток денег после приобретения такую как: program ; var ; ; и так далее...
yesayes
22.07.2020 07:06
Определите , что будет напечатано в результате работы следующей программы . vas s ,k : integer. begin. s : = 1; for k : = 2 to 7 do. s : = s + 100. write (s). end...
kotov657
21.03.2020 16:17
Дима хотел послушать музыку на компьютере, для этого ему нужно было включить музыкальный файл белые_розы.mp3. он начал работу с каталога с: \музыка\хиты. сначала он спустился на один...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
if abs(n)>7 then begin
n:=n/1.5;
end else begin
n:=7*n;
end;
writeln(n);
end.