1. Информатика
  2. Ввести число. если число

Ввести число. если число отрицательное, то умножить его на-1. затем выдать на экран число и квадратный корень из числа.

teterev2003 teterev2003    1   04.06.2019 11:40    1

Ответы
leravseznayka leravseznayka  05.07.2020 12:49
Var a:integer;
begin
readln(a);
if a<0 then a*=-1;
write(a,' ',sqrt(a));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
fox2121 fox2121  21.07.2019 08:05
Наводнение продолжалось ровно сутки. в первый час вода в реке поднялась на 1 дюйм, во второй на 2, в третий на 3, и т.д. на сколько дюймов поднимется уровень воды за сутки....
07Zarina1111 07Zarina1111  05.04.2021 20:46
Приведите пример любой программы иллюстрирующей алгоритм поиска элемента в дереве ( Паскаль ). ответ не в виде картинки, а код текстом....
кэт2281 кэт2281  05.04.2021 20:46
8 КЛАС сколько раз будет выполняться действие в PYTHON, если в цикле написано: for i in range(0,10,4)...
SVINKAPIPA SVINKAPIPA  05.04.2021 20:45
Умова циклу означає (там картинка)...
BkyCHblu5DoLLluPaK BkyCHblu5DoLLluPaK  03.09.2019 10:50
При производстве двух видов изделий (а и в) предприятие использует 4 вида ресурсов. нормы расхода ресурсов на производство единицы продукции, объем ресурсов, а также прибыль...
Can4ez73 Can4ez73  03.09.2019 10:50
Українська: на заняття танцювального гуртка прийшли два хлопчики, а решта - дівчатка. діти стали в коло. файліна почала рахувати, нікого не пропускаючи: дві дівчинки, хлопчик,...
Мыркпвы Мыркпвы  03.09.2019 10:50
Автоматическое устройство осуществило перекодировку информационного сообщения на языке длиной в 24 символа из 16-битного кода unicode в 8-битный код кои-8. как изменился объем...
Flowers09 Flowers09  03.09.2019 10:50
Что такое ms o? с точки зрения информатики. мне написал в тетради учитель, но я не ....
Андрюша1789 Андрюша1789  03.09.2019 10:50
Какие распространенные расширения есть на комппах?...
annagubina78mailru annagubina78mailru  03.09.2019 10:50
Что перспективнее? c++ или pascal?...

Популярные вопросы