tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится число. если
Склавиатуры вводится число. если оно четное, то его нужно удвоить, а если нечетное - утроить. в паскале.
chudnova2001kp07wio
1 06.07.2019 22:50
1
Ответы
Gendalf1875
29.07.2020 23:55
Var n: integer;
begin
read(n);
if (n mod 2 ) = 0 then n:=n*2
else n:=n*3;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Фара1323
04.09.2019 16:50
Написать программу на языке турбо паскаль начало x: = 2 y: = 3 да. x y нет y : = x+1 y : = x x : = y x : = y - 1 конец...
lololol707lollol
21.05.2020 19:54
Дана блок схема решите вроде там легко...
Rostislav200353
21.05.2020 19:54
Составить таблицы истинности и логические схемы следующих логиче ских выражений...
zavarinaira100
28.12.2020 21:26
Значення виразу(7,93-9,93)^-3...
sadnaadina00
28.12.2020 21:26
2-топ – киім киісін жөнсіз көрген досына өтініш білдіреді; Дескрипторлары:1. Тақырыпқа қатысты берілген сөздерді қолданалды;2. Мәтіндегі ақпаратты пайдаланады;3. Досына өтініш білдіреді...
RANDOM328
28.12.2020 21:26
В які частині світу лежить Південа Америка?...
Ученикdsgfgchugffwgc
28.12.2020 21:26
Оформите предложение с прямой речью: Соня ты сегодня придёшь ко мне в гости....
SimpleNick
28.12.2020 21:25
Знайдіть основу півнобедренного трикутника якщо його периметр 43см а бічна 12см...
sofitit0410
28.12.2020 21:25
порівняйте процеси травлення в ротовій порожнині і тонкому кишечнику зазначені процеси та за які умови вони відбуваються вкатіть спільні та відміні ознаки...
Яночка86864864
28.12.2020 21:25
рассмотрите рисунок кровеносной системы речного окуня. Опишите строение сердца рыб. Опишите строение кровеносной системы рыб ...
Популярные вопросы
1;3 вопрос и если получится остальные...
3
Не выполняя построения определите пересекаются ли парабола у 1/5х2 и прямая y=x+18...
3
Написать определение и прокомментировать слова: забота о людях, слава, красота...
1
Родной русский язык 49. Определите значения иностранных слов, выбрав правильный...
3
Түркі Миграцияның нәтижесінде болған өзгерістерді анықта...
2
3. Решение задач: - Два автомобиля одновременно выехали навстречудруг другу. Первый...
1
Почему древнем орудием человека был камень? (более 30 слов...
1
1. Алатау тауында қандай жоталар бар? 2. Ол жоталар қандай?3. Неге Алатау деп...
2
Что относится к официальной обстановке разговор с другом по телефону, перемена...
1
Шығармадағы Қазтуған бейнесін танытатын жолдарды анықтаңыз. Шығарма үзінділерін...
3
begin
read(n);
if (n mod 2 ) = 0 then n:=n*2
else n:=n*3;
end.