Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vda200311
13.12.2021 00:32 •
Информатика
Написать программу для вычисления x<0, то y=|x| иначе y=x^2
Показать ответ
Ответ:
машуля5552
06.01.2021 14:38
var x, y:Integer;
begin
readln(x);
if x < 0 then
y:=abs(x)
else
y:=sqr(x);
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ирина1523
16.02.2020 01:13
Очень надо, но не могу решить...
Aind1
16.05.2021 03:42
Мазмұнды құру неше кезеңнен тұрады...
kotofrei231
19.08.2020 01:11
Что не может осуществить пользователь наиболее современной «электронной книги» e-reader с tft матрицей? 1) читать книги; 2) просматривать изображения; 3) слушать музыку;...
ggimat203
19.08.2020 01:11
Что такое vga? (. video graphics array)...
ANTON5452
29.11.2022 09:43
алфавит языка Синтаксис устонови соответствие между арифметическими операциями ирезультатами их выполнения . ...
mukidinova
02.09.2022 23:24
Как выбрать случайные числа?...
arzanyaevanika
08.05.2023 16:21
Жазу батырмасы қандай мүмкіндік береді?...
ислам1110
13.08.2022 00:31
NA ды2. Определите информационный объём (в битах) слова из 5 символов в этойкодировке....
Boris2006
01.04.2020 02:44
Очень Напишите алгоритм решения уравнения 3y-1=2....
мишка4543
19.06.2021 13:13
Анықтамасын жазындар. Тіл әліпбиіСинтаксис...ТрансляторАйнымалылар......
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x, y:Integer;
begin
readln(x);
if x < 0 then
y:=abs(x)
else
y:=sqr(x);
writeln(y);
end.