Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Фиалка2332
23.05.2020 15:09 •
Информатика
Дано целое число а. если значение а< 0,то необходимо удвоить его. написать программу для решения этой .
Показать ответ
Ответ:
kblaginin6gmailm
23.06.2020 19:06
Var a: integer;
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
evaboyko
25.08.2020 21:04
Как выглядит структура объявления переменных?...
ramina25
25.08.2020 21:04
Выберите правильные ответы: какие виды системного программного обеспечения выделяют? выберите один или несколько ответов: a. электронные таблицы b. операционные системы c. базовое...
nasyapest
25.08.2020 21:04
Вквадратной матрице найти сумму минимального и максимального элементов главной диагонали....
nasti2125
14.05.2022 12:22
Сравните числа 111101 в 2 c/c и 5de b 16 c/c...
Albina1809
14.05.2022 12:22
Файл размером 1 мбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в кб), который можно передать за то же время через другое соединение...
gulim160104
13.11.2021 20:15
Найдите значение выражения: ((1\/А)/\(0\/B))/\(1/\А) * найти значение выражения не (x 3) и не (х 2)...
vlada051199
16.05.2021 18:39
Укажите подсистему системы Программное обеспечение компьютера...
Примари
30.10.2020 20:12
((x ∧ ¬y) ∨ (w → z)) ≡ (z ≡ x). нужно составить таблицу...
nyanchann
21.02.2021 02:17
Напишите сообщение по информатике на тему представление информации !...
tamirisis7sk
21.02.2021 02:17
Пользуясь таблицей кодировки символов получить шестнадцатеричный код слова информатика...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.