Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
sass20
07.08.2020 14:33 •
Информатика
Ввести число. если число отрицательное, то умножить его на-1. затем выдать на экран число и квадратный корень из числа.
Ответ:
Polikaza
05.07.2020 12:49
Var a:integer;
begin
readln(a);
if a<0 then a*=-1;
write(a,' ',sqrt(a));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
YuLia120620
17.08.2022 21:45
Использование роботов в различных сферах деятельности....
PrivPomogite
19.03.2022 23:25
Даны значения целочисленных переменных : a=10 b=20. чему будет равно значение логической переменной rez после выполнения операции присваивания? a) rez: =(a=10) or (b 10)б)...
Ульяна2732
05.05.2022 04:49
Переведите число 222 в шестнадцатеричную систему счисления...
NICHEGOHOROSHEGO1
05.05.2022 04:49
Вкакой системе счисления записаны числа 214=140+24...
ТиматиТорнадо
05.07.2022 20:13
Какие строки содержат ошибки? 1) readln (x+y); 2)writeln (x+y); 3)x = 2 * a (присваивание) 4) var a: integer, b: real...
HappyMen11
05.07.2022 20:13
Брошюра содержит 32 страницы, на каждой странице 32 строки, в каждой строке 25 символов. определите информационный объём статьи в кбайтах в кодировке windows-1251, в которой...
Миксеры
14.12.2021 15:26
Пусть пользователь вводит 2 целых числа - длины сторон прямоугольника. составьте программу вычисления площади и периметра прямоугольника....
gadjimira
23.06.2022 15:33
Выполни деиствия записывая примеры столбиком 42 709 плюсов27592...
islamghj
23.06.2022 15:33
1) в ниже предложениях словами объясните постановку запятых. рядом с цифрой напишите объяснение. я всхлипнула,(1) а он обнял меня,(2) как маленькую. ему всего и нужно,(3)...
приветпомогипж2
23.06.2022 15:33
Написать короткий рассказ про александра невского. только не понятно причем здесь музыка....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a);
if a<0 then a*=-1;
write(a,' ',sqrt(a));
end.