Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kitty67
13.07.2021 15:06 •
Информатика
Составьте программу на Паскале для примера 7.
Показать ответ
Ответ:
missvictoriak
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 оценок)
Популярные вопросы: Информатика
Natsha88
25.01.2021 17:05
Перевести в двоичную, восьмеричную, шестнадцатеричную системы счисления, десятичное число 44...
naumchenkova87
15.10.2020 11:59
В палитре 64 цвета. Разрешение картинки 100 на 100. Сколько бит весит данная картинка?...
mazieva82872
11.06.2022 07:36
Написать программу нахождения площади и гипотенузы прямоугольного треугольника по двум катетам. для c++...
ramina25
02.08.2021 23:45
ИНФОРМАТИКА а) текст б) графика в) звук г) видео д) архивные е) исполняемые 1) bmp 6) zip 11) com 16) bat 2) mov 7) mp3 12) avi 17) txt 3) exe 8) rtf 13) wav 18)...
zvarichevgenija
30.08.2020 06:49
Параграф 2.5 конспект Босова 7 класс. Сделайте пожайлуста...
malyxd
18.10.2022 12:44
Массив R[1]=12, R[2]=3, R[3]=-5, R[4]=-6, R[5]=4, R[6]=9, R[7]=0, R[8]=8. Определите значение sum после выполнения следующего фрагмента программы:Sum:=0;for i:=1...
virtuspro2000
07.04.2023 20:42
Задание по информатике сделать!...
anninor53
19.11.2020 09:54
1. Откройте через браузер документ 100.rtf (нажми на ссылку) и прочитайте стихотворение Л. Кондратенко: Цитата У про100го 100рожа Непро100рный дом: Часто в нем...
skZ1
13.04.2022 04:04
5) Найдите сумму чисел 101011, + 38 = ответ запишите в двоичной системе счисленияА) 1001100каБ) 1100001B) 1111000Г) 1010001 нужно ...
alinamalina2703
21.11.2022 19:56
Задача. Определите сколько бит информации понадобится для кодирования черно-белого изображения размером 20 н 32 в двухцветной кодировке?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.