Составить программу для решения . ввести любое число с клавиатуры. найти его квадрат, если число отрицательное, в противном случае найти квадратный корень.
romashka301
1
29.05.2019 13:10
10
Другие вопросы по теме Информатика
РауанУченик6класса
26.03.2020 06:24
bi2002
26.03.2020 06:23
katirina19
26.03.2020 06:22
scfsdfddPenis
02.02.2022 19:41
safeon
31.07.2019 12:40
julirim013
26.04.2021 14:37
goldwildcat1
01.05.2020 11:01
киса2248
18.02.2021 22:09
Популярные вопросы
- На первой полке а книг,на второй-в 3 раза больше,чем на первой,а на третьей-на 17...
3 - Вклассе 15 учащихся изучает . язык, 11 человек язык, 9 же оба языка. сколько учащихся...
1 - С-2 -1 4 - 10 = цифры сверху это степени, а снизу целые числа решить : ( заранее...
2 - Найти массу оксида фосфора(5) полученного из 40 гр фосфора...
1 - Что должен сделать российский граждадин когда на торжественном мероприятии исполняется...
3 - Какой объём водорода выделяется при взаимодействии 45г натрия, в котором 5% примесей...
1 - Нужно из какого-нибудь произведения найти и выписать 1)сложносочинённое (3 предложения)...
2 - Иастер за 3 дня изнотовил 184 деталей. в 1 день он изготовил в 2 раза больше,чем...
3 - В5 одинаковых коробках m кусков мела. сколько кусков мела в 8 таких коробках? ответ...
1 - Как переводится предложение a sea eorse...
1
USES crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo: ');
Readln(a);
If a<0 then
s:=sqr(a)
else
s:=sqrt(a);
Writeln(s);
END.
begin
writeln('Введите число');
readln(n);
if n < 0 then j:=n*n else j:=sqrt(n);
writeln(j);
end.