tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу.даны два
Написать программу.даны два числа а и б, наибольшее из них умножить на 10, а наименьшее разделить на 10
Legendary13
3 24.09.2019 22:10
0
Ответы
blackrabbit3
27.08.2020 06:56
Var a,b: Real;
begin
writeln('Введите a и b');
readln(a,b);
if a>b then
begin
a:=a*10;
b:=b/10;
end;
if a<b then
begin
b:=b*10;
a:=a/10;
end;
if a=b then
begin
b:=b*10;
a:=a*10;
end;
writeln('a: ',a);
writeln('b: ',b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
borisrrvdow9kk7
02.08.2019 20:00
Как решить такую по 7 38653 = х 1000000 (где 38653 и 1000000 - система счисления)...
RaidFrame
02.08.2019 20:00
Объясните слово свойства (или что такой свойства)...
mynomynou
25.10.2021 09:01
с задачей, не могу понять как делать...
Анд2007
25.10.2021 08:59
Как сделать чтобы на сервере five m не пропадали машины кто знает Хочу спавнить 5 машин одновременно но когда спавню 2ю первая пропадает...кто знает? (gta 5)...
victoriya0205
25.02.2021 17:11
ЯЗЫК PYTHON С клавиатуры вводится целое число N - количество чисел, которые будут вводиться далее. Затем вводится N штук целых чисел. Найдите сумму только положительных чисел....
gela06
25.02.2021 17:13
Начертите базовую структуру цикла с постусловием....
TuyaChimitova
25.02.2021 17:16
Напиши структуру функции ввода...
Абдулjazair
03.12.2020 09:51
1. Классифицируйте основные форматы данных (то есть напишите значение данных): Общий ПроцентныйЧисловой ДробныйДенежный Все форматыДата2. Что такое формула? Напишите определение3....
catarshaninp08iio
03.12.2020 09:51
Вариант №4 1) Информационные технологии в организации и проведении спортивных соревнований.2) Технология создания и редактирования графической информации.3) Технология создания...
EnemySSS
29.05.2019 11:30
Составить программу по нахождению среднего арифметического всех чисел от 10 до 45. в паскале...
Популярные вопросы
После укола все меняется перед спящим. От постели к окну протягивается широкая...
1
Ребята быстрее я вчера забыла сделать к/р и мне надо сейчас отправлять...
2
1. Вычислите: 7!; 3! • 5!; 10! : 7!; 8!-7!; 4!+5!; (8!-9!+7!):(7•8!) 2. Найдите...
1
Груз массой 16 кг поднят с подвижного блока на высоту 2 м. При этом пришлось...
3
Инсектицидтер қай салаға пайдасын тигізе алады?...
2
Прочтя печальное посланье, Евгений тотчас на свиданье стремглав по почте поскакал...
2
что надо делать осталось 10 минут это Северная Америка...
1
Диаметр окружности равен 15,01 см. Значение числа пе 3,14.Определи длину С этой...
2
Як тварини використовують слух для організації?...
3
Составьте алгоритмы рисования используя встроенные алгоритмы. Не повтори N раз...
3
begin
writeln('Введите a и b');
readln(a,b);
if a>b then
begin
a:=a*10;
b:=b/10;
end;
if a<b then
begin
b:=b*10;
a:=a/10;
end;
if a=b then
begin
b:=b*10;
a:=a*10;
end;
writeln('a: ',a);
writeln('b: ',b);
end.