Предмет: Информатика,
автор: yakovlevgg
Ввести число. Если число отрицательное, то умножить его на-1. Затем выдать на экран число и квадратный корень из числа.
Ответы
Автор ответа:
0
var a:integer;
begin
readln(a);
if a<0 then a*=-1;
write(a,' ',sqrt(a));
end.
begin
readln(a);
if a<0 then a*=-1;
write(a,' ',sqrt(a));
end.
Интересные вопросы
Предмет: Математика,
автор: tanyasalnikova7800
Предмет: Информатика,
автор: aleksejkotmysev
Предмет: Химия,
автор: chilipizdrik46
Предмет: Алгебра,
автор: mashuhin2010