Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kulaevmasya
31.07.2021 22:59 •
Информатика
Дано число если даное число нечотное то умножить на 2 если даное число больше 7-ми то вычислить квадратный корень
Показать ответ
Ответ:
Pechencka666
06.10.2020 22:04
Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.
0,0
(0 оценок)
Популярные вопросы: Информатика
отличник733
30.09.2020 07:47
1. Загадай три випадкові числа від 1 до 6, що познача- тимуть номер об єкта в першому, другому і третьомустовпчику. Склади речення з назвами цих об єктів та заПИШИ....
ангелина67890
28.02.2023 05:50
Написать программу на c++ дано трехзначное число n. проверить, будет ли сумма его цифр четным числом. я новичок в этом, так-что желательно с пояснениями. ( в интернете есть решение...
pavelivanov199ozg2xn
04.10.2020 13:44
Сколько cd объёмом 500 мбайт потребуется для размещения информации, полностью занимающей жёсткий диск ёмкостью 30 гб...
куся26
22.06.2022 21:55
имеется N учеников (0 N 30). Даны рост учащихся. Если в классе рост учащегося меньше 140см, то он относится к ученику с низким ростом. Напиши код программы, определяющий, сколько...
Bredyatish
06.12.2020 02:17
Сынып бөлмесінің ұзындығы (а)және(b)ені берілген.Осы бөлменің периметрі(P) мен ауданын (S) есептейтін сызықтық программа құр...
Валерия555444
09.06.2021 17:28
Напишите программу,которая переводит килограммы в граммы. запросите у пользователя вес в килограммах,звтем на экран выведите этот вес в граммах...
ImmortalSpirit
03.08.2022 09:43
В чем истинная ценность исскуства? по текстю Последний листок...
Alinakamisarova
27.08.2022 21:49
Благодаря кому и чему Даниле удалось овладеть мастерством резчика?...
vika27072
26.07.2021 11:24
Columbus discovered Australia в отрицательной форме...
lyubashabelyaeva
13.09.2022 08:40
Какую массу нитрата кальция можно получить при нейтрализации 126 г азотной кислоты?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.