Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
osharapa
04.06.2021 22:06 •
Информатика
Составь и запиши программу на языке Паскаль ,которая, если введённое число отрицательное , меняет его на противоположное
Ответ:
EM12EM3
13.10.2020 04:14
var
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);
writeln(a);
readln;
end.
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
cote18
03.07.2021 01:50
Уменя на экране появились пиксели. что делать. с появлением пикселей начал затухать экран...
dddashaaa1
21.10.2021 23:23
По среде обитания вирусы можно разделить...
лика20042
29.05.2023 18:40
Javascript. Каков будет результат [] + [] и почему?...
DGOTVK
22.09.2021 23:03
C# Hайдите минимальный элемент среди всех элементов массива. Важно учесть, что нахождение минимального элемента должно производиться при циклов. Массив: int[,]...
саша17101
13.11.2020 22:04
Вывод недоступен! Для открытия вывода необходимо пригласить 5 друзей по своей партнёрской ссылке. Ваша ссылка: https://t.me/NeuralAppBot?start=1431269569...
PhoenixStep
29.09.2022 05:16
Код Python Напишите функцию, которая принимает на вход список и возвращает словарь. Ключ словаря - символ из исходной строки, значение словаря - сколько раз символ...
annuwka1
04.08.2022 12:42
Как оформить в коде Ассемблера FASM процедуру дальнего вызова(в сегменте отличном от сегмента, где вызван call)?...
Aleks4565
24.09.2020 01:18
Инфа 10 класс Паскаль очень надо...
Valensia59
12.12.2020 15:47
Какое проверочное слово к слову красный с орфограммой сн...
ashueva1919
12.12.2020 15:47
Слова в которых есть корень лож лаг кос...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);
writeln(a);
readln;
end.
Объяснение: