Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
withoutbrainn
23.01.2022 18:26 •
Информатика
Алгоритм который отрицательное число возводит в квадрат , а из положительного числа вычисляет квадратный корень.
Показать ответ
Ответ:
syltan502
05.10.2020 15:12
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A<0 then Write(A*A)
else Write(sqrt(A))
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
яяя99яяя
06.07.2022 09:08
2 скрипторды салыстырыныз. Уксастыгымен айырмашылыгын табыныз....
kavilochka
19.07.2020 08:43
информатика что за условие тут проверяется if x ) then y:=1;...
Dizzy234
04.06.2023 00:56
Дан одномерный массив прибавьте ко всем элементам по 1...
Killeris
04.07.2020 07:17
Что означают эти знаки.1. i 2.u 3.s в кружке...
nik20554888
04.06.2023 00:56
Три расширения файлов относятся к одному типу. какое расширение относится к другому типу? 1) малина.jpeg; 3)арбуз.png; 2) клюква.midi; 4)крыжовник.bmp....
amdv
06.11.2020 13:37
Для хранения растрового изображения размером 128´128 пикселей отвели 8 кб памяти. каково максимально возможное число цветов в палитре изображения....
usimbekovameruert
16.11.2021 03:16
Задание 1 ( ). Дайте развернутые ответы на во Зачем нужны законодательные акты в информационной сфере? ( ) Какой закон регламентирует права авторов программ и баз данных? ( ) Какой...
ladygum78
05.02.2021 05:44
Запиши число 13643 в развёрнутом виде, начиная со старшего разряда....
алишер126
07.06.2022 01:12
решить в Excel Алгоритм вычисления функции F(n) задан следующими соотношениями: F(n) = n при n 1 F(n) = n + 3·F(n–3), если n чётно, F(n) = 5n + 2·F(n–5), если n нечётно. Чему равно...
нази13
07.10.2020 14:06
Дано,Найти,Решение,ответ)заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
Begin
Write('A = ');ReadLn(A);
if A<0 then Write(A*A)
else Write(sqrt(A))
End.