Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ZSkeletZ
19.02.2021 09:04 •
Информатика
Составить программу для решения . ввести любое число с клавиатуры. найти его квадрат, если число отрицательное, в противном случае найти квадратный корень.
Показать ответ
Ответ:
безумнаявкедах
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 оценок)
Ответ:
Audika
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 оценок)
Популярные вопросы: Информатика
ajdanayun
03.06.2021 23:22
Предлагается некоторая операция над двумя произвольными трехзначными десятичными числами: 1) Записывается результат сложения старших разрядов этих чисел. 2) К нему дописывается результат...
БадяМэн
13.03.2020 17:34
1составить схему отношений между объектом и объектом по сказке курочка ряба,2 ,3 фрагмента в виде таблицы 3 изобразить рисунок когда кто то кем то .2- представить 2,3 фрагмента в виде...
Vtscrntfigduufs
15.06.2022 23:18
Теория ! случайная точка а наудачу выбирается в прямоугольнике со сторонами 1 и 2 . описать событие означающие , что расстояние от а до каждой стороны в прямоугольнике не превосходит...
Kurakluk
10.10.2021 18:39
Обясните какие цифры надо поставить вместо букв а и б, чтобы получилось верное равенство: аб*а*б=...
Dubrov5ky
17.04.2020 19:57
Дать термины или определения...
sofitit0410
17.04.2020 19:57
Вставьте предлоги into,off,on,ina)it is 11pm. i will turn _ .b)it is dark. let s turn _ the light.c) my telephone is ringing. please, turn _ the radio образуйте 3 степени сравнения...
vera0503
10.10.2021 18:39
Как проверить слове сдобный букву с...
livadon
10.10.2021 18:39
50 пунктов за решение 1.прочитайте отрывок из текста и придумайте заголовок.уточните тип речи: это описание места или описание состония природы? какие признаки, предвещающие весну,...
vika0289111
10.10.2021 18:39
Оливер рисует на клетчатой бумаге прямоугольники, состоящие из 2009 клеточек, и вычисляет их периметры. сколько разных результатов он может получить?...
Мишаня1721
10.10.2021 18:39
Составь рассказ. можешь использовать следующие слова. прогулка за город. друзья, объявление,воскресенье,у подъезда школы, отъехали, подъехали, деревья, веселье, разъехались....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.