Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ksyutitova2017p0bhz4
30.04.2021 00:38 •
Информатика
Составить программу для решения . ввести любое число с клавиатуры. найти его квадрат, если число отрицательное, в противном случае найти квадратный корень.
Показать ответ
Ответ:
alyonaapresyan
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 оценок)
Ответ:
tamirisis7sk
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 оценок)
Популярные вопросы: Информатика
шпион223709
29.11.2021 15:28
буду благодарна получите...
enatusya55
23.11.2021 18:32
а то что-то застрял на этом задании....
Кек11111111118
27.11.2022 16:54
1) Какой один из основных недостатков мультимедийных продуктов? а) Требовательны к операционной системе б) Требуют большого объёма памяти в) Требуют использования дорогостоящей...
Bel4onokk
30.08.2021 07:03
Программисты составить программу на языке pascal...
Флаксария
25.05.2020 00:52
Ть рішити ребус т,,граблі‘,,ластівка...
6755175
30.09.2020 09:01
Перепиши предложения, подчеркни в них подлежащие, укажи, какой частью речи они выражены. 1.Митраша был моложе сестры на два года. 2.Кислая и очень полезная для здоровья клюква...
Dashasdh
06.05.2023 12:49
Спишите, вставляя пропущенные буквы и знаки препинания. Подчеркните слова категории состояние как члены предложения....
fatimamuradaaa
19.07.2020 12:24
Complete the dialogue with the present perfect or past simple form of the verbs in brackets or an auxiliary verb ...
Yana18102001
19.07.2020 12:24
Книга Activity Book 4 класс Страница 56,1 задание...
Настя9474
19.07.2020 12:24
Как можно опрделелить, органические вещества образуются в растениях только на свету? А. Поставить одно растение в освещенное место, второе - в темное. После определить наличие...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.