Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
mon13
20.05.2022 20:10 •
Информатика
Задать число x если х< 0,то y=x'2 иначе y=x'2 . выдать у . а) х=-11
Ответ:
sok6
09.10.2020 19:58
Var x,y: Integer;
begin
readln(x);
if x<0 then y:=sqr(x) else
y:=sqr(x);
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kitiry
29.03.2021 04:19
Задание: посчитать сумму ряда, используя цикл с постусловием (repeat until) y = e1 + e2 + e3 +… + en...
olegkarimov20
09.12.2020 00:58
и не забудьте округлить ДО СОТЫХ...
primarina2000p09pnc
30.01.2020 20:08
В шифре Цезаря каждая буква алфавита заменяется буквой, стоящей на некотором фиксированном расстоянии от нее. Такое расстояние называется ключом. Например, в шифре Цезаря с ключом...
LeRaDrEeMuRuNdErTaLe
29.08.2022 12:54
Что такое рабочая книга и рабочие листы...
яся72
31.01.2021 20:29
Для чего используется ультразвуковой датчик...
Vasya1godik
30.06.2021 15:48
Название электронных таблиц...
dimaprokopovewp06mw2
11.01.2020 21:12
Составьте таблицу истинности: 1 (А В) (С В); 2 (АВ)(СА)...
egor2006012
04.10.2021 14:02
Какое применение можно найти ультразвуковой датчик в других сферах...
angelicafifa
24.07.2020 18:54
Какой из операторов языка Pascal используется для программирования цикла с предусловием? repeat while for...
annatokar031
20.08.2020 14:32
Какие угрозы в интернете ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(x);
if x<0 then y:=sqr(x) else
y:=sqr(x);
writeln(y);
end.