Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
skorospelovana
03.09.2019 03:30 •
Информатика
Задано произвольное целое число. если они больше 50,то уменьшаете его в два раза, в противном случае возвести в квадрат.
Показать ответ
Ответ:
KIrito5016
01.09.2020 07:07
Var
n: integer;
begin
read(n);
if n > 50 then
writeln(n / 2)
else
writeln(n * n)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
romakirill1999
24.04.2019 01:10
Файл размером 16 кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в байтах), который можно передать за то же время через...
Гилязарт
24.04.2019 01:10
Написать програму решения уравнения ах^3 + вх = 0 для произвольных а, в...
Springtrap222134124
28.03.2019 23:40
Написать блок схему и написать ее в программе паскаль s=a+b...
ббэшка
28.03.2019 23:50
3. таблица футбольного чемпионата задана квадратной матрицей, в которой все элементы главной диагонали являются нечисловыми элементами, а остальные элементы определяются по...
Kamillka005
16.06.2019 00:40
Ккакому виду программного обеспечения относиться текставой процессор...
Зояlove
16.06.2019 00:40
Задан одномерный массив а(n) (n =60). на место минимального элемента массива записать сумму последних к элементов массива. если а[1] =0, то умножить все элементы этого массива...
Милана3091
16.06.2019 00:40
Переведите десятичное число 187 в восьмеричную систему счисления...
sva1978
16.06.2019 00:40
Решить в pascal abc. нужно составьте программу, позволяющую определить, будет ли введённая строка перевёртышем после удаления из неё всех пробелов...
Sofa2021
16.06.2019 00:40
на паскале оплата за электроэнергию производится по следующему правилу: за потребленную мощность до а квт в месяц оплачивается в рублей за 1 квт, а за потребленную. энергию...
vladisnal2
16.06.2019 00:40
Найти сумму 10 чисел вводимых с клавиатуры через цикл со счетчиком нужна блок-схема и сама программа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
n: integer;
begin
read(n);
if n > 50 then
writeln(n / 2)
else
writeln(n * n)
end.