Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
karabanovaann
29.01.2023 19:49 •
Информатика
Написать программу для вычисления x<0, то y=|x| иначе y=x^2
Ответ:
Анна157211цаа
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 оценок)
Популярные вопросы: Информатика
lesya16146
25.06.2021 00:35
62,3 перевести из 10 системы счисления в восьмиричную...
azarkan
25.06.2021 00:35
Огэ по информатике, но я хочу ее немного подтянуть с дополнительной , а так как книг такого рода слишком много, то глаза разбегаются. хочу спросить у тех, кто уже...
aliksondrrr3
06.04.2023 00:26
Var s, i: integer; Mas:array[1..10] of integer;Begin Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6; Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7; Mas[9]:=5; Mas[10]:=3;...
tatyanapalihova
18.03.2021 08:00
Как составляется трассировочная таблица...
kolika2016
12.01.2023 14:56
ИНФОРМАТИКУ УМОЛЯЮ ВАС ЭТО БОЛЬШОЕ ЗАРАНЕЕ... скоро сдавать...
Artyom20076
23.06.2022 21:21
Для записи текста использовался 256-ти символьный алфавит. каждая страница со18. держит 30 строк по 70 символов в строке. какой объем информации содержат 3 страницы...
mrlams288
23.06.2022 21:21
Какую операцию логики выполняет конъюнкция (вентиль и )?...
nik19991
23.06.2022 21:21
Написать программу по информатике: найти произведение положительных, сумму и количество отрицательных из 10 введенных целых чисел....
adele978645312
06.01.2023 19:55
Complete the sentences with the correct form of be 1.there some students in the classroom2.therea computer on the desk3.theretwently Phones...
Mrskiss
06.01.2023 19:55
Характеристика Євшан зілля...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x, y:Integer;
begin
readln(x);
if x < 0 then
y:=abs(x)
else
y:=sqr(x);
writeln(y);
end.