tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число n увеличить число
Дано целое число n увеличить число в 3 раза если число четное . входные данные 4. выводимые данные 12. паскаль.
XxXBulykXxX
3 22.07.2019 08:00
5
Ответы
Kuznecovaalexa2005
03.10.2020 10:24
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var n:=ReadInteger;
if not Odd(n) then n:=n*3;
Writeln(n)
end.
Тестовое решение:
4
12
ПОКАЗАТЬ ОТВЕТЫ
Коши
03.10.2020 10:24
//Pascal ABC.NET v3.1 сборка 1172
var
n: integer;
begin
read(n);
if n mod 2 = 0 then n := n * 3;
writeln(n);
end.
Пример ввода:
4
Пример вывода:
12
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vladlena151215
31.05.2021 14:56
По шестнадцатеричной форме внутреннего представления вещественного числа 488B6000 в 4-х байтовой ячейке восстановить само число....
fma060429
31.05.2021 14:46
Объясните простым языком что такое аналоговые и цифровые сигналы...
мишаиванво
07.12.2020 18:08
Запишите формат ячейки 15%...
Maria120163
07.12.2020 18:08
-(A\/B)&B порядок выполнения логических операций три числа...
Morikachan46
07.12.2020 18:06
Акпаратты кабылдау тасилин аныктаныз срч...
sanjabr82oymx7f
06.02.2021 22:00
Ниже записан алгоритм. Укажите наименьшее из таких чисел X, при вводе которых алгоритм печатает сначала 3, а потом 2. Pascal: var x, a, b, c: integer; begin readln(x); a:= 0;...
ikstar
06.02.2021 21:42
Построй дерево каталогов. Даны полные имена файлов. C:\Главное\Образование\Задание.doc C:\Главное\Отчёты\Квартал.xls C:\Главное\Отчёты\...
MissEmilyaBlood
01.06.2019 07:30
Дана строка. указать те слова, которые содержат хотя бы одну букву k. составить программу на паскаль. заранее ^_^...
Лол1666
01.06.2019 07:30
Вчем заключается разница между записью и полем в табличной базе данных?...
ВККeerboom
04.08.2019 23:20
Катер движется по течению реки со скоростью 18км/ч,а против течения со скоростью 14км/ч.опредилите скорость течения реки...
Популярные вопросы
Что означают славянские имена: Святослав, Владимир, Любовь, Всеволод, Людмила,...
1
Из всего прочитанного материала выделите существенные характеристики Древнерусского...
3
Расскажите о природных условиях, в которых образовалось Древнерусское государство....
2
Какими чертами народ наделил русских богатырей?...
2
В древнерусских книгах говорится: «Держись со всеми как равный, если в жизниты...
1
В одной из древних книг, написанной в 1076 году, говорится; «И по детям своим...
1
Рассмотрите карту на с. 5, Знакомы ли вам названия этих городов? Где на территории...
3
Какие материалы использовали люди для письма и используют сейчас?...
2
Каким вы представляете натуральное хозяйство? Подтвердите текстом....
3
В каком месяце созревают земляника, черника, малина? Когда появляются первые...
3
begin
var n:=ReadInteger;
if not Odd(n) then n:=n*3;
Writeln(n)
end.
Тестовое решение:
4
12
var
n: integer;
begin
read(n);
if n mod 2 = 0 then n := n * 3;
writeln(n);
end.
Пример ввода:
4
Пример вывода:
12