Войти Регистрация Спроси ai-bota

Даны 2 различных числа. найти c=max/min. написать программу в pascal

Ответ:

Ayazoro2

25.08.2020 20:19

Begin
var a, b, c: integer;

readln(a,b);

c := 1;

if a > b then c := a / b
else c := b / a;
writeln(c);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

lamsjsj

16.02.2020 18:44

Запишите следующие числа форме 0,1359e+7...

xxsPiRiTxx

11.04.2021 18:33

Определить объем учебника в байтах,если известно,что в книге 358 страниц,на странице 62 строки,в строке 60 символов....

sergey1234567890f

14.01.2021 18:41

Представьте 61 и 125 а беззнаковом 8-разрядном форме...

Берегиня

15.08.2021 14:07

37 ! составить программу на pascal. условие: даны три стороны треугольника. вычислите площадь и периметр. ход решения: ввести три цифры - стороны треугольника и с...

erkenova0909

13.05.2023 18:47

Скорость передачи данных 9200 бит/с. за сколько времени можно передать текст объёмом 1500 байт? ...

gidfgwlr

07.11.2020 17:36

Написать программу в pascal: заменить последний элемент массива минимальным(размерность массива=10)...

Meryem98

07.11.2020 17:36

Дано целое число в диапазоне 10-99.вывести строку название цифры на которую заканчивается данное число на языке(0-ноль.1-...

марго170

29.01.2021 03:29

Составить алгоритм цель которого вы вывести на экран наименьшее значение переменных a b c и d проверить правильность алгоритма для разных значений переменных...

Xmitejr

23.02.2020 03:24

Выбери из списка правильные ответы на вопрос: у каких окон нельзя изменить размеры? 1 мои документы 2 графический редактор paint 3 блокнот 4 калькулятор....

gost226

18.01.2023 10:04

Для цветной картинки, составленной из 64 цветов в графическом мониторе 640*480, какой требуется объем видеопамяти в...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку