tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
B) ввести число. если его
B) ввести число. если его модуль больше 7, уменьшить число в 1,5 раза, в противном случае увеличить в 7 раз.
Krasotcakotik
1 18.09.2019 04:10
0
Ответы
Evelynimmortal
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
шпион223709
22.12.2020 17:59
Що можна зробити за до хмарих сховищ...
LEH9
22.12.2020 17:58
Частота взятия отсчётов непрерывного по времени сигнала при его дискретизации называется...
КрутойМиха
22.12.2020 17:58
Кестеле берилгенге суйене отырып диаграмма салыныз ...
Elviraelvira200
17.05.2019 17:30
Укажите те числа, которые могут существовать в указанной сс: а) 1111; б) 20011; в) 10000001 - двоичная а) 1а2с; б) 96480; в) аесо - щестнадцатеричная...
Мур6954
24.06.2019 06:50
Найти сумму положительных кратных 7 чисел,меньших 100....
Маркизетта
31.05.2019 04:40
1. написать программу для паскаль, которая распечатывает таблицу умножения от 1 до 5. 2. написать программу для пакаль, которая распечатывает таблицу умножения...
severenok
19.05.2020 22:15
СОЧ тапсырма Оқылым Мәтінді мұқият оқып, төмендегі тапсырмаларды орындаңыз. Жеңіс күні- бұл мыңдаған ұрпақтарымызға ортақ мереке. Отанын қорғаған жауынгерлер мәңгілік...
СофикоПримудрая
19.05.2020 22:15
О для вас: 1: кто такой Полидект? 2:что такое миф? 3:назовите автора произведений последний поклон царь-рыба 4:кто была первой женщиной-писатель,кто получил Нобелевскую...
lizamankova94
19.05.2020 22:15
Напишите небольшой юмористический рассказ на любую тему из школьной жизни (100 – 150 слов) Работа контрольная. Не использовать Интернет....
alina1923
19.05.2020 22:15
X^2 + x - 2/ 2x^2 - x - 1 = 1...
Популярные вопросы
Значение пословицы кто хочет много знать, тому надо мало спать...
1
Спиши,вставь,где нужно,пропущеные буквы . напиши проверочные...
2
Как изменилось положение россии с точки зрения кол-ва стран-соседей...
3
Значения выражений 80*7-42: (50786-50-780)*9= 7*4+64: 8*(21-17)+30000=...
1
Письмо зарубежному другу как я провел лето...
2
Втенистом уголке нашего сада громко ппел соловей разберите п...
3
Зделайте за четыре часа теплоход км.за сколько часов он пройдет...
2
Составить письмо на . вообщем нужно написать письмо подруге...
3
Мне нужен не большой конспект на тему что такое !...
2
Собственная скорость моторной лодки 6.7км/ч.скорость течения...
1
begin
readln(n);
if abs(n)>7 then begin
n:=n/1.5;
end else begin
n:=7*n;
end;
writeln(n);
end.