Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
lebedeva2303
07.05.2022 19:51 •
Информатика
Составить программу даны 2 числа если первое число болше 2 то его увеличить в 2 раза иначе второе число увеличь в 2 раза
Ответ:
dasha8872
28.05.2020 18:17
var a,b:integer;
begin
readln(a,b)
If (a>b)
then a:=a*2
else b:=b*2;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
geliebtemutter
20.04.2021 02:58
Нужно ответить на тест по информатике...
УчебныйГод
22.08.2020 12:19
Подсчитать скорость передачи файла размером 1 Кбайт за 4 секунды при скорости интернета 256 Мбит/с...
noniqname
27.10.2020 10:05
Переведите в килобайты 5120 байт и 30 мегабайт, !...
743Slivka
12.05.2023 18:49
1. Определите типы данных/5Данные1. Ложь2.45893. 7.594. 515 5. Город...
Ilana27
15.04.2020 08:51
Дана таблица Покупка товаров, Определите, какие типы данных использованы при заполнении таблицыСтолбец AСтолбец вСтолбец DТекстовыйЧисловойДенежный...
fox2055
15.09.2020 18:03
Вспомню басню И.A.Крылова квартет Сколько различными могут попытатся сесть в ряд эти музыканты ?Изобразите соответствующий граф...
ноолмллкшшп
04.06.2022 09:06
Вмассиве содержащем положительные отрицательные целых чисел вычислить сумму положительных элементов...
Травка58
04.06.2022 09:06
Опишите тип данных в каждом из случаев: а)45 12 -96 23 5 8 -9 б)4.2 23.6 -25.3 -6.5 в) петров сидоров иванов г)”p” “h” “5” «п» «_» е) true false...
CISA9999
22.03.2021 09:15
Водномерном массиве [1..10] определить наименьший массив...
efr47
22.03.2021 09:15
Вычеслить значение y=nsinx-cosnx если x изменяется от x0 до xk с шагом h...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,b:integer;
begin
readln(a,b)
If (a>b)
then a:=a*2
else b:=b*2;
end.