Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dsokolovskiyp015em
10.12.2022 02:14 •
Информатика
Впаскале. составить программу удвоения меньшего из двух.
Показать ответ
Ответ:
rabadanovaasya
31.07.2020 18:36
Var a,b:integer;
begin
writeln('Введите A, B');
readln(a,b);
if a = b then writeln('Ничего не удвоили, числа равны')
else
if a<b then begin
a:=a*2; writeln('удвоили А ',a);
end
else
if b<a then begin
b:=b*2; writeln('удвоили B ',b);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
annaegoshina
02.06.2021 18:44
Уисполнителя калькулятор две команды: 1. прибавь 1 2. умножь на 2 первая из них увеличивает число на экране на 1, вторая- умножает его на 2. сколько различных чисел...
8katenokp08idx
02.06.2021 18:44
Паскаль напишите программу, которая выводит на экран массив в в одну строку и определяет количество четных и количество нечетных элементов....
rudenkonn57
02.06.2021 18:44
Паскаль. напишите программу, которая запрашивает ввод массива b и выводит на экран его элементы в табличной форме: 1 2 3 4 2 3 4 5 3 4 5 6 выведите на экран среднее...
alisiakuzmur
22.06.2021 21:14
Проведите сравнительный анализ растровой и векторной графики с точки зрения технологии создания изображений, возможности их редактирования (включая масштабирование),...
123456789er
10.01.2022 16:12
Нужно зарисовать дерево каталогов по классической схеме c: \kp1_b3\октябрь c: \kp1_b3\май\среда...
qwerty1127
08.06.2020 04:51
Осуществить преобразования . 1)ca- cao- caso4...
karinkaloseva2003
08.06.2020 04:51
Вспомните какие рассказы произведения маршака вы читали на уроках и самостоятельно...
yuliya226
08.06.2020 04:51
Скажите представителей (обычных) водорослей...
sofirzhk
08.06.2020 04:51
1)где встречаются щелочные металлы в природе? 2)кто из ученых больше всего открыл щелочных металлов?...
ALMUGGG
08.06.2020 04:51
Зачем государству нужно поддерживать малый и средний бизнес?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите A, B');
readln(a,b);
if a = b then writeln('Ничего не удвоили, числа равны')
else
if a<b then begin
a:=a*2; writeln('удвоили А ',a);
end
else
if b<a then begin
b:=b*2; writeln('удвоили B ',b);
end;
end.