Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
WiTaMiN111
11.07.2022 22:13 •
Информатика
Написать программу в паскале . если число чётные то делим на два ,если нечётное то возвести в квадрат .
Показать ответ
Ответ:
alexandra171717
09.10.2020 21:25
var a: integer;
begin
readln(a);
if a mod 2=0 then writeln (a/2) else writeln (sqr(a));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nazar94
06.02.2021 00:03
Написать программу, которая вычисляет сумму первых n целых положительных чисел. кол-во суммируемых чисел должно вводиться во время работы программы. ниже представлен рекомендуемый...
alexkraskina
01.05.2022 02:33
Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше – русских или латинских. Pascal...
kristinannm17
03.06.2020 04:27
Установите соответствие. число 1) 7105 2) 10001 3) 43f7 система счисления минимального основания а) двоичная б) троичная в) восьмеричная г) десятичная д) пятнадцатеричная е)...
dasausakova526
11.03.2020 11:40
Имеет ли каждый компьютер, подключенный к интернету, интернет-адрес? доменное имя?...
Сахарокcom
05.03.2021 05:10
Ұяшықтарды форматтау дегеніміз не?...
wasdas390wasdas390
18.07.2020 13:44
по данным доменным именам определите какой стране принадлежит сайт: .am, .au, .af, .uk, .de, .kz, .kg, .cn, .uz, .ua, .ru, .fr, .ch, .se, .jp...
H1tg1rl
14.11.2021 03:59
Найдите длину дуги, которую описывает часовая стрелка за 1 час....
13895702084657812570
14.11.2021 03:59
Найдите xy, если x^2+y^2=281 и x-y=11...
ангелина867
14.11.2021 03:59
Если вчера было бы сегодня а сегодня...
SuperCatYT
14.11.2021 03:59
Кто знает, как решать? , . вычислите молярную концентрацию раствора, если известно, что 2 л этого раствора содержит 112 г калий гидроксида? ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: integer;
begin
readln(a);
if a mod 2=0 then writeln (a/2) else writeln (sqr(a));
end.