Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
aliona123456789
17.11.2022 06:08 •
Информатика
Определить, делиться ли целое число на 6, если "да", то возвести его в квадрат. |pascal abc| (алгоритмическая конструкция ветвление; принятие решений в программе; полная и сокращенная формы условного оператора; составной оператор и т.д.
Ответ:
ademausag
09.07.2020 08:50
Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sereg1525
19.01.2022 11:18
Запишите результат выполнения арифметиских операций: 37 div 10 = 58 div 10 = 125 div 10 = 234 div 10 = 873 div 100 = 3985 div 1000 = 37 mod 10 = 58 mod 10 = 125 mod...
olya2010
11.05.2022 20:59
1)что лежит в основе моделирования? 2) примеры моделей в реальной жизни. 3)какую роль сыграли компьютеры в развитии процессов моделирования? 4)поясните суть модуляции...
vavilon4ik
20.10.2022 11:11
Составить программу, которая проверяет является ли билет счастливым. в билете 6 цифр. 8 !...
Anas11111
11.11.2021 16:59
Задано двузначное число найдите среднее арифметическое цифр числа используйте операции div и mod...
yana08042004
23.01.2022 17:34
понятие огловление информатика 6класс ...
Надюшка2000
25.09.2020 16:41
Что такое вычислительные возможности компьютера...
karolsevilla384
28.04.2023 19:12
Напишите 10 основных функций компьютера...
bubnovasofya20
11.03.2021 09:26
Що виведе наступний код?a = 3if a / 12 = = 1a = fоо else:...
Didei
07.03.2022 19:10
Якою є блок-схема циклу з передумовою?...
dsefanova
15.02.2023 02:09
1)-3/4+(-5 1/4) 2)-9/11+(-4 3/11)3)-7/8+(-1/4)4)-9/11+(-4 3/11)5)-3/17+(-11/34)6)-7/12+(-8 1/6)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
end.