Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
foxmanlp
17.12.2022 22:08 •
Информатика
Составить программу для решения . ввести любое число с клавиатуры. найти его квадрат, если число отрицательное, в противном случае найти квадратный корень.
Показать ответ
Ответ:
sayanasssss
28.06.2020 15:16
Program asd;
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.
0,0
(0 оценок)
Ответ:
Karinka1Malvinka
28.06.2020 15:16
Var n,j:real;
begin
writeln('Введите число');
readln(n);
if n < 0 then j:=n*n else j:=sqrt(n);
writeln(j);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Lina555510
16.10.2021 21:03
Придумайте варианты соединения в сеть четырёх компьютеров-серверов и зарисуйте их....
w0mk
21.03.2021 00:31
2. Выберите основные инструменты SketchUpПеремещениеРучная работаЛинияВращенияВыборПалитраЛастикКомпонент...
kravts222p08eoo
30.04.2021 15:18
Какое из имён, удовлетворяет логическому условию: первая буква согласная & четвёртая буква гласная в слове четыре буквы. 1)сергей 2)вадим 3)антон 4)илья...
галина261
13.04.2020 10:40
Упростит логическое выражение. Правильность упращения проверьте с таблиц истинности для исходных и полученных логических формул. а) А v (HE(A)&.B); б) А &...
fbnjvtlchenko
02.02.2021 10:09
В каком случае маршрутизатор играет роль коммутатора?...
александр12342
17.05.2020 05:09
1. Переведите одну единицу измерения в другие и заполните ячейки табл. 1.1:Таблица 1.1бителкимбайт1 байт128 бит1 Кбайт1,5 Кбайт2048 байт2 Мбайт81920 бит1,5 МбайтбитбайтКбайтКбайтКбайтбайтсунка,чек...
nintendo161
02.07.2021 08:46
Пыльца — это половые клетки, которые формируются: в зародышевом мешке в рыльце пестика в тычинках У растений, как правило, образуется гораздо больше пыльцы, чем у...
Dariya160408589865
02.07.2021 08:46
When/this house/build ?passive voice....
adonnush
02.07.2021 08:46
Задание: Join the sentences with a relative pronoun. Be careful with the punctuation. 1)We spoke to a police officer. He was working on the reception desk 2) A car...
Дашка5милашка
08.12.2020 18:23
Соотнесите название приказа и его функции 1)Поместный приказ 2)Монастырский приказ 3)Челобитный приказ 4)Сибирский приказ 5)Пушкарский приказ 6)Малороссийский приказ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.