Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tinapai
12.07.2022 10:58 •
Информатика
Задано число, проверить, если число положительное то его нужно удвоить, если число отрицательное уменьшить в 2 раза, иначе оставить без изменения.
Показать ответ
Ответ:
андрон14
10.07.2020 12:49
Var x: real;
begin
readln(x);
if x>0 then x*=2 else if x<0 then x/=2;
writeln(x);
end.
0,0
(0 оценок)
Ответ:
Thrillgang
10.07.2020 12:49
Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
end.
Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
рол145
06.09.2022 06:27
Повороты. Урок 2Верных ответов: 234567...
lenya013
02.02.2022 09:42
Используя вс слова составьте верную последовательность команд для рисования круга и опишите назначения этих команд. А) Pygame.draw.circle (, , , , ) Вс слова -color, screen,...
kolodenkoa444
14.10.2021 13:27
Впаскале и без функции рандома, . дан массив целых чисел. вывести индексы тех элементов, значения которых кратны 3 и 5....
tuysdik
12.10.2021 21:52
Для хранения растрового изображения 640 на480 пикс. использовали 65536 цветов. найти обьем видеопамяти...
nonolo07
24.12.2020 14:05
Запишите инструкцию: вычисляющую значение переменной r по формуле (x2+y2): 2...
sasha1916
01.04.2020 09:31
Яс компа через блютус нашла свой телефон. пытаюсь с телефона чени будь скинуть,на компе пишут сопряжено.как тогда с компа скинуть? и еще я тут нажала на телефоне обзор...
антонl
25.10.2022 07:15
Рассказывают ,что черепаха тортилла отдала золотой ключик буратино не так просто ,как рассказывал а.н.толстой , а вынесла три коробочки : красную ,синюю и зелёную . на...
Doloeris
04.04.2022 02:43
Что означает высказавание известна действущая на тело сила ?...
Stasya13203
04.04.2022 02:43
12 хлопців наловили порівну карасів. потім з ясувалося, що 3 з них рибу не їдять. вони залишили свій улов друзям , які знову поділили улов порівну. скільки карасів піймали...
dhrgdh
04.04.2022 02:43
Надо стих про разние форми земной кари...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(x);
if x>0 then x*=2 else if x<0 then x/=2;
writeln(x);
end.
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
end.
Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.