Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
VasyaKotikSnake
15.03.2021 12:26 •
Информатика
Задано произвольное целое цисло . если оно больше 50, то нужно уменьшить его в 2 раза, в противном случае возвести в квадрат. паскаль
Показать ответ
Ответ:
kghjg
29.05.2020 04:15
var a:integer;
begin
readln(a);
if a>50 then
a:=a/2;
else a:=a*a;
Writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
drazzgaming
02.04.2023 18:03
Вчем сходство и различия между cd и dvd?...
tonplaton
02.04.2023 18:03
1байт=8 бит доброе дело совершается всегда с усилием, но когда усилие повторено несколько раз - то же дело становится привычкой. посчитайте сколько байт и перевести в бит....
jodydonig
20.06.2022 22:03
Количество информации в соответствии с вероятностным подходом определяется как: выберите один ответ: a. число различных символов в сообщении b. объем памяти компьютера,...
Ffpfodo
20.06.2022 22:03
Найдите сумму чисел 1/2+1/4+1/6+/20...
vehera087
20.06.2022 22:03
Синфой в алфавите формального (искусственного) языка два знака-буквы («о» и «1»). каждое слово этого языка состоит из трех букв. максимально возможное количество слов в...
Polinaklass12
05.12.2021 10:53
ОЧЕНЬ МАЛО В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке: Я вас любил: любовь ещё, быть может,...
Дошик132
20.08.2020 14:58
Створити блок схему любого алгоритму з повсякдено життя....
darina2468
09.03.2023 13:48
Запишите возможности и преимущества языка Python....
iraromanova2002
10.04.2021 20:22
Вычислите объём файла в килобайтах если изображение стоит состоит из 580 х 490 точек глубина цвета равна 17 по 3 записать только целое число...
chiigenwjs67
12.10.2022 22:40
Как в MS-DOS, находясь в корневом каталоге скопировать файл 101.txt из папки C:\folder2\text\ в папку C:\book\part1\?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
readln(a);
if a>50 then
a:=a/2;
else a:=a*a;
Writeln(a);
end.