Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Maria21Kaplina2
23.01.2021 18:21 •
Информатика
Даны два числа a и b. удвоить меньшее из них.
Ответ:
Шурочек
05.10.2020 17:26
Var
a, b, k : integer;
begin
writeln ('text');
readln (a);
writeln ('text1');
readln (b);
if (a>b) then
k:=b*2
else
k:=a*2;
writeln (k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
кобра453
07.09.2022 02:44
Переведи число 20228 в десятичную систему счисления....
kristi091000
14.03.2022 01:50
АСУ в профессии повар кондитер...
Anna1855
04.08.2020 02:56
с информатикой нужно сделать число в какой то штуке нужно перевести в двоичную сс хз что это...
rembo15
14.04.2022 18:09
Нужна по информатике С подробным ответом и решением!...
аня2836
07.01.2023 04:49
Компьютерные сети LAN относятся... Вариант 1к корпоративным сетямВариант 2к ИнтернетуВариант 3к локальным сетямВариант 4к региональным сетям...
karimjan96961
28.11.2022 11:23
Вмагазине было 672 телевизора в первый день купили 40 телевизоров во второй в 3 раза больше сколько осталось телевизоров...
NikitaSuperkryt228
28.11.2022 11:23
Перевести на казахский язык. дорогой мой друг дияз .как твой дела.дома все ли хорошо .как учеба,как здоровье .у меня всё хорошо.учеба в порядке .дела отлично.сегодня замечательная...
strelecky
28.11.2022 11:23
Какие неприятности могут встретить туристы a) во влажном экваториальным лесу б)в саване в) в тропических пустинях...
16nastia16
28.11.2022 11:23
Что из перечисленого не является природной зоной: джунгли тайга степь равнина саванна...
milenabalayan
28.11.2022 11:23
Придумать 10 интересных (необычных) вопросов по произведению гоголя шинель...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a, b, k : integer;
begin
writeln ('text');
readln (a);
writeln ('text1');
readln (b);
if (a>b) then
k:=b*2
else
k:=a*2;
writeln (k);
end.