Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nik868
28.11.2022 13:05 •
Информатика
Составить программу, которая считывает число и выводит его модуль (примечание: если число отрицательное, необходимо его умножить его на -1). на языке паскаль
Показать ответ
Ответ:
ferid9098
15.09.2020 15:49
Var
c:real;
begin
writeln('Введите число');
readln(c);
if c<0 then c:=c*-1;
writeln('Модуль числа=',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kiryazhigulski
30.10.2021 18:22
Сканируется цветное изображение размером 25 х 30 см. разрешающая сканера 300 х 300 dpi, глубина цвета — 3 байта. какой информационный объём будет иметь полученный графический...
antonshv313p012l5
08.03.2023 22:59
Запишите следующие числа в естественной форме а) 0,00375 умножить на 10 в 3 степени б)1,234 умножить на 10 в минус во 2 степени в)5,737 умножить e-2...
Kirito081
09.09.2020 15:22
Составьте программу вычисления значений функция у по формуле y=3sinx+2x...
Sveta1314
27.05.2022 14:05
Найдите x⁴+1/16x⁴ если 2x+1/x=6...
risimonenko
20.10.2020 05:07
Можете сделать розу ветров с 1 февраля до 15 2021 года?...
12345678910АБ2261784
24.01.2020 02:05
Взволнованная свиданием с Дубровский Марья Кирилловна возвращалась из сада. раставьте пропущенные знаки препинания.подчеркние определения,выраженные причастными оборотами,и...
yrarissikhin
04.05.2022 20:06
Развитие переднего мозга у птиц...
Fantom792
12.11.2021 14:58
складіть молекулярне повне та скорочене йонні рівняння у водних розчинах між цинк нітратом і натрій гідроксидом...
kabitskiyilya
25.06.2020 20:12
Што такое мастурбация?...
klimantovich72
05.06.2022 04:47
Ставлення автора до діда Платона за твором Ніч перед боєм...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
c:real;
begin
writeln('Введите число');
readln(c);
if c<0 then c:=c*-1;
writeln('Модуль числа=',c);
end.