Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Pomogihd
22.10.2021 06:04 •
Информатика
Написать программу в паскале . если число чётные то делим на два ,если нечётное то возвести в квадрат .
Ответ:
mkalashnik1983
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 оценок)
Популярные вопросы: Информатика
варфэисник
11.02.2023 12:24
Составьте программу которая находит произведение квадратов чисел от 1 до 5...
Soul9in9the9dream
09.02.2020 01:26
Подчеркни красным, что здесь неверно написано. бывают разные виды информации: звуковая, зрительная, обонятельная, вкусная осязательная...
dikoshadobro1
09.02.2020 01:26
Из 25 учеников класса 17 играют в футбол, 10 – в волейбол; 7 – и в футбол, и в волейбол. а остальные предпочитают играть в компьютерные игры. сколько человек в классе играют в...
deniskalubit
08.07.2022 13:20
Составьте программу которая выводит таблицу значений функции у=4х-5 вычисленных в каждой точке х на отрезке [5; 10] с шагом 0.5...
Настя0857
08.07.2022 13:20
Задано трехзначное число abc. если взять его последнюю цифру и поставить перед первой, то новое число будет на 12 больше удвоенного исходного числа. напишите это число, если c=4...
maxdemplay
21.05.2021 01:52
Клавиша delete используется : а) удаление выделенного фрагмента текста б) соединения двух абзацев в один в) удаления символа слева о текстового курсора г) удаление символа справа...
erkinsultanov
28.03.2023 11:20
Вычислите сумму 7 натуральных чисел, вводимых с клавиатуры .наберите в среде pascal abc , заменив многоточия на необходимые команды. program v2; var s,n,i: integer; begin s: =;...
komissar1809
28.03.2023 11:20
Помгите) 1 вопрос.можно ли отследить создателй вирусов? 2 вопрос.предусмотренно ли наказание этим людям хакерам...
пятка1980
11.11.2021 06:23
1) вычислить 111001010112+11011111012= 10000012-111112= 14378+74658= 700008-64538= abcdf16+9876516= f000001c16-aabbff16= 2) перевести число 111111101001010010100011100 из 2-ичной...
ADAEV095
11.11.2021 06:23
Составить программу в pascal abc с клавиатуры вводят названия трех фигур, например: - ромб - квадрат - круг. составить программу, которая выводит на экран эти названия, например:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a: integer;
begin
readln(a);
if a mod 2=0 then writeln (a/2) else writeln (sqr(a));
end.