Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
scorp2003
03.04.2021 16:01 •
Информатика
Дано целое число а. если значение а< 0,то необходимо удвоить его. написать программу для решения этой .
Ответ:
lubavoytenko003
23.06.2020 19:06
Var a: integer;
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ladysachenko20
18.05.2023 01:49
На координатній прямій знаходиться ваш будинок, а також будинки трьох ваших друзів. Ваш будинок знаходиться на координаті 0. А координати друзів на x1, x2 та x3 відповідно....
kabdushevaaynash
17.04.2023 08:25
Это на пайтоне Заданы данные о росте и поле каждого из n=10 человек. Составить программу, которая определяет средний рост мужчин....
swetammm2018
13.11.2021 00:46
Впишите слова -ответы : a)любое словесное высказывание , напечатанное , написанное или существующее в устной форме. б)информация , представленная в форме письменного в)любой...
vershinindaniil1
02.08.2021 15:22
Какой результат вы получите после вычисления выражения 48 mod 20 =...
Krasoto4kayoy
02.08.2021 15:22
Надо. заранее большое ) 1) определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11. 2) найдите и выведите на экран...
maksgibert61
25.05.2022 02:05
Дается последовательность из чисел. найдите количество различных чисел....
kononova2007
21.02.2021 19:14
Составляйте предложения используя необходимые термины Лимфа Лимфатическая система ___Тканевая жидкость КровьГомеостаз...
nakjuo
17.03.2023 22:41
ГМәтіндегі өздеріңе қызықты әрі күлкілі болған бір мамандықтың иесіне хатжазыңдар....
mila336
07.03.2020 15:25
Назовите произведение С. Сейфуллина о восстании 1916 г.?...
RomashechkaRomova
07.03.2020 15:25
Сравни.17/25-12/25 и 28/45-1/45...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.