Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Макс1111111f
12.05.2022 12:05 •
Информатика
Pascal меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.
Показать ответ
Ответ:
angelina1504
22.06.2020 07:27
Program sum;
uses crt;
var
a,b:real;
begin
writeln('Введите число А:');
read(a);
writeln('Введите число B:');
read(b);
if (a>b) then a:=a*2 else b:=b*2;
writeln('Числа после измения а=',a,' b=',b);
end.
0,0
(0 оценок)
Ответ:
Tomoki
22.06.2020 07:27
Var a,b,c:integer;
Begin
readln(a,b);
If a>b then b:=b*2
else
If a<b then a:=a*2;
writeln(a,' ',b)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AlexFireStreamGun
22.07.2021 10:57
Численные методы Составить интерполяционный многочлен Ньютона через конечные разности для вычислениязначение функции в конце таблицы, если f (x) задана таблично. Найти ее приближенноезначение...
sashunyakotova
16.03.2021 13:07
Напишите программу для этого : какой минимальный объём памяти (в байтах) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером a×b пикселов при условии,...
НaстяРайская
16.03.2021 13:07
Составить алгоритм рисования первой буквы вашего имени, буквы з . я вас напишите мне все координаты, я не шарю в информатике...
Ruslan2284612
16.03.2021 13:07
Записать на языке паскаль следующие выражение если число кратно 3, тогда вывести на экран да , иначе вывести нет...
zeroone01
12.05.2022 16:19
Укажите имя сущ. 2 склонения: около рябины, около шалаша, около дороги, около печи...
ukaldarbek206
12.05.2022 16:19
Цікаві факти про птахів не багато і на украинском!...
ArtemD98
12.05.2022 16:19
Кто становился рабом в древнем риме?...
lilarthur
12.05.2022 16:19
Ким працюе моя бабуся .напиши про це текст росповидь...
dima0124124
12.05.2022 16:19
Напиши краткое сообщение о каком-нибудь интересном событии,которое произошло в твоей школе...
allasrasHiron
12.05.2022 16:19
Какое окончание в слове открылось а словосочитание (кафе открылось)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a,b:real;
begin
writeln('Введите число А:');
read(a);
writeln('Введите число B:');
read(b);
if (a>b) then a:=a*2 else b:=b*2;
writeln('Числа после измения а=',a,' b=',b);
end.
Begin
readln(a,b);
If a>b then b:=b*2
else
If a<b then a:=a*2;
writeln(a,' ',b)
end.