Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ImmortalSpirit
11.03.2023 10:30 •
Информатика
Составь и запиши программу на языке Паскаль ,которая, если введённое число отрицательное , меняет его на противоположное
Показать ответ
Ответ:
OkumRin
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 оценок)
Популярные вопросы: Информатика
Sonialovegirl
22.07.2022 14:49
Постройте таблицы истинности для выражений:...
tima242
25.10.2021 09:47
Складіть блок-схему алгоритму знаходження суми п’яти чисел, перше з яких дорівнює 7, а кожне із чотирьох наступних на 3 більше від попереднього. виконайте алгоритм. с лазариуса...
муліка22
16.08.2022 02:39
написать программу заполнения массива 7 целыми числами с клавиатуры и вывод их на экран через пробел...
fhchfyhf1
07.03.2020 05:42
Таблица истинности символом f обозначено одно из указанных ниже логических выражений от трех аргументов: x, y и z. дан фрагмент таблицы истинности выражения f (см. рисунок). какое...
Lakensssss
07.08.2020 23:23
Сообщение состоит из 3 страниц. На каждой странице 96 строк. В каждой строке 64 символа. Для записи использовался 32-символьный алфавит. Сколько килобайт в сообщении....
alexey2030
06.08.2021 23:40
9.. Составить блок-схему алгоритма для решения следующей задачи Дано целое число n. Вычислить S = sin(1) + sin(1+3) + sin(1+3+5) + ... + sin(1+3+5+...+(2n+1)) 10. Составить блок-схему...
КатяСвиридова
24.09.2020 22:23
Кто решит тот молодец А ИСЧО ИНФОРМАТИКА Заполните трассировочную таблицу выполнения...
arinaantonuyk
24.09.2020 22:23
1. Напишите на языке Python следующие арифметические выражения: 2. Напишите программу на языке Python: Аскар сходил в магазин и купил продукты. Если известны стоимость каждого из...
SHEVTSOVA1183
21.12.2020 19:38
Потрібно розробити програму для обрахунків додавання, віднімання, множення, ділення, піднесення до степеню з графічним інтерфейсом. пайтонн...
Dhgfhdudv
23.04.2023 21:43
1.почему за групповое приступление наказание больше? 2.вандализм и уровни ответственности. 3.возраст для наказание несовершенолетних...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);
writeln(a);
readln;
end.
Объяснение: