Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
asca82
01.07.2022 04:21 •
Информатика
Составьте программу на Паскале для примера 7.
Показать ответ
Ответ:
shcukinalena
12.10.2020 21:50
var x,f:real;
begin
readln(x);
if x>0 then f:=x else f:=x*1;
writeln(f)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dooolche
15.06.2020 11:40
Процес отримання нових даних з наявних – це. А)кодування даних Б)опрацювання даних В)декодування даних Г)зберігання даних...
liza1430
08.07.2020 04:36
Внимание Не удаётся отобразить этот видеорежим . Измените разрешение на 1280х[email protected]Гц.У меня ПК , что делать?...
AKA1111173
21.03.2023 17:50
104.превратите одно слово в другое,всякий раз заменяя по одной букве так,чтобы новое слово было существительным в именительном падеже. а)ночь б)рота в)бант г)бег д)море...
an02092004
02.06.2023 04:26
ь ли ты привести примеры встроенных объектов в других программах, с которыми тебе приходилось работать?...
mexoc
11.02.2020 11:19
Укажи наибольшее целое число Х.для которого истинно высказывание (X =20) HE(X 32)....
fox370
08.12.2020 22:31
, надо сделать в Паскале...
berrrdi
17.12.2022 23:06
Умоляю исправляю контрольную ?...
zhikinemil26
02.01.2020 18:41
Найди ответы или саму контрольную работу...
madeintower
06.03.2020 17:48
1. Решите логические выражения 2. Найдите наименьшее целое значение x при котором значение данного логического выражения истинно 3. ответьте на вопрос сколько нулей содержит...
dasharuu
07.07.2020 10:27
Петя нарисовал в графическом редакторе paint восемь кружков три красных и пять синих.Сколько кружков у него получилось после выполнения следующего алгоритма действий? Сколько...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,f:real;
begin
readln(x);
if x>0 then f:=x else f:=x*1;
writeln(f)
end.