Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ВикторияГога
22.06.2022 12:38 •
Информатика
Написать программу для вычисления x<0, то y=|x| иначе y=x^2
Ответ:
tutinae
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 оценок)
Популярные вопросы: Информатика
Виктория11618
12.12.2020 06:45
Варианты ответов 1) =B3*[email protected] 2)=B2-B2*$F2 3)=B2-B2*$F$2 4)=B2-B2*$F3 Задание 2 Даны числа: 7; 27; 154; 4362; 10162. Используя MS Excel, вычисли среднее арифметическое...
Unicorn789
21.05.2020 14:19
Как называется объект, который передаёт информацию. 8 букв. Четвертая о....
marina19793
10.03.2020 09:46
1)Какие достоинства и недостатки имеет использование стилей? 2)Какой на ваш взгляд,удобнее при создании нового стиля?...
elinapak
09.03.2023 11:30
Определите, количество чисел к, для которых следующая программа выведет такой же результат, что и для k=30...
kkoluzhonokp08din
06.05.2020 05:29
Что будет выведено на экран после выполнения этой программы? string s = 123456789 ; int n = s.find ( 456 ); s.erase ( n+2, 3 ); cout s;...
farita1
02.05.2020 09:07
Небольшая по инфе ❤️найти значение переменной i на яп паскаль ...
русскийязык149
10.02.2023 01:54
Яне знаю как решать таие . старик хоттабыч взялся своим друзьям сдать экзамены. для того, чтобы наколдовать правильный ответ на один вопрос по , он должен вырвать из своей...
Нукку95
26.02.2021 16:45
Program table; var f,x: real; begin writeln; {перевод курсора на начало следующей строки} x: =-1; while x =1 do begin f: =sqr(x)+1; writeln(‘x=’,x’ ‘,’f(‘,x,’)=’,f); x:...
karamendes1p06wtk
09.06.2021 20:31
Какая строка получится в результате применения ниже программы к строке, состоящей из 72 идущих подряд цифр 5? в ответе запишите полученную строку пока нашлось (333) или...
kalinka2002021oxuybb
07.11.2020 21:06
Все возможные слова из слова маршрут...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.