Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
fourkovioxk812
03.11.2020 01:11 •
Информатика
Задано произвольное целое цисло . если оно больше 50, то нужно уменьшить его в 2 раза, в противном случае возвести в квадрат. паскаль
Показать ответ
Ответ:
timko1
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 оценок)
Популярные вопросы: Информатика
Radled
27.02.2021 03:55
разобрать слово по координатной таблице цифры: 15 12 10 13 16 10 00 04 00...
Ариана141197374
27.07.2021 09:04
Реализовать программу: вводится код, выводится его символ. Организовать цикличность ввода с выходом....
Jfigh
26.05.2021 18:52
В каких из условных операторов допущены ошибки? а) if b = 0: print ( Деление невозможно. ) б) if a b: min = a; else min: = b в) if a b : max = a else: max = b г) if a b...
mdasa7375
31.07.2020 03:44
Рассматривается множество целых чисел, принадлежащих числовому отрезку [3912; 9193], которые удовлетворяют следующим условиям: − сумма цифр числа кратна 9; − шестнадцатеричная...
АленаКамарова
24.06.2021 09:16
Что представляет собой текст для компьютера...
Nikita20000005
04.12.2021 18:34
токо сделайте правильно! ...
nik13243546576879
21.04.2022 02:50
Выполните следующие вычисления в программе. 1. Сложение чисел 105 и 5. 2. Вычитание чисел 50 и 15. 3. Произведение чисел 6 и (–8). 4. Деление чисел 81 на 9. 5. Определите...
Denis12o9
09.09.2021 02:20
по python Напишите функцию print_digit_sum(), которая принимает одно целое число num и выводит на печать сумму его цифр. заранее...
Ilka1k
07.09.2022 11:20
Учитель предмета «Естествознание»дал Диасузадание создать видеоролик на тему «Природные явление вКазахстане». Что бы ты посоветовал Диасу? Запиши на прядок действий в тетради....
darina1209
30.10.2022 14:52
Проанализируйте программные блоки, показанные на рисунке 9. Что вы получите, запустив эту программу? Объяснить, почему быстр...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.