Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
milekhina81
06.12.2022 13:16 •
Информатика
Дано целое число n увеличить число в 3 раза если число четное . входные данные 4. выводимые данные 12. паскаль.
Показать ответ
Ответ:
cote18
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
0,0
(0 оценок)
Ответ:
академег228
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
0,0
(0 оценок)
Популярные вопросы: Информатика
Пот43
15.05.2022 00:57
Оқыту мен оқуда АКТ-ны пайдаланудың бес аспектісі....
Lichnosti
05.08.2022 04:51
Запишите условие поиска файлов в расширении которых встречается d...
Elirgon88
02.10.2022 06:27
Для чего используется вкладка Вид в команде Формат ячеек?...
GDI1
31.12.2020 01:27
Напишите антонимы к следующим словам: enhance; natural; monotone; animated; loud; fast. по 1 антониму ко всем словам написать....
www22042004
31.12.2020 01:27
Перевод текста с анг. на рус. название the first adventure of bobby bootson...
POMIPO
31.12.2020 01:27
Сравнительная хар-ка японии и ! !...
sonyapanferova
31.12.2020 01:27
Sin 1914, cos1914, cos(-1560), sin(-1560), tg 23,7пи, sin (a-90), ctg(360-a), tg(-a-270), sin^2(180+a), cos^2(270-a) решить ,...
fenx73
31.12.2020 01:27
Образуйте от глаголов в неопределенной форме глаголы в форме настоящего и будуещего времени во 2 - м и в 3 - м лице единственного числа....
nvede
31.12.2020 01:27
Мама- разберите слово как часть речи...
isaevaa24
31.12.2020 01:27
Разложите многочлен на множители: (5а + 4)³ - а ³ =...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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