Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
marina02032006
08.09.2021 00:53 •
Информатика
Составить программу даны 2 числа если первое число болше 2 то его увеличить в 2 раза иначе второе число увеличь в 2 раза
Показать ответ
Ответ:
Yulasha22
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 оценок)
Популярные вопросы: Информатика
covo1
04.06.2023 19:15
Потрібно написати програму, яка в масиві цілих чисел знаходить суму двоцифрових чисел. Кількість елементів масиву можна вводити самостійно(в межах від 10 до 50)(Інформатика...
Nikitos31055
14.03.2023 08:42
Записать блок-схему и программу на школьном алгоритмическом языке алгоритма вычисления площади прямоугольника....
Agnessasidorevich
01.06.2021 08:07
Призначеня структури інтернету:...
Ромашка242526
08.04.2023 10:40
2. Kompüterdəki qovluqlarla adi kağız qovluqların hansı ortaq və ferqli elametleri var?...
veronikatulene
18.03.2020 05:13
В одной из кодировок Unicode каждый символ кодируется 16 битами. Ваня написал текст (в нём нет лишних пробелов):«Уфа, Азов, Пермь, Белово, Вологда, Камбарка, Соликамск...
SAA0807
21.08.2020 15:26
Написать функции в паскале . Программирование...
MASCAM
20.08.2021 08:12
Ачала алгоритмизации и 101. при сортировке яиц на птицефабрике категорию определяют по весу яйца. третья категория (3) - от35 г до 44,9 г. вторая категория (2) - от...
Kamila7811
04.10.2020 19:57
Исправить ошибку в строке long long an = a1 +(n - 1)*d. #include using namespace std; int main () { long long a1, d, n; cin a1 d n; long long an = a1 + (n − 1) * d;...
ABBADON369
02.12.2021 09:33
Написать функцию, которая удаляет из стека отрицательные элементы. остальной код: struct stack { // декларация структурного типа int info; stack * next; } *begin, *t;...
Aslihaaan
14.10.2020 08:48
Найди в тексте отрывок, где браконьер передумал ловить осётра Отчего на душе Игнатьича стало легче, когда освободилась царь-рыбка? Почему главный герой пообещал никому...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b:integer;
begin
readln(a,b)
If (a>b)
then a:=a*2
else b:=b*2;
end.