Роман Ибрагимов
Роман Ибрагимов

Даны 2 числа, разделите большее на меньше, если возможно, если невозможно, то найдите их сумму.

Помогите плиз решить это в pascal.

УГ
Умар Гафаров

ВАР а, б, ц: реал;
бегин
реадльн (а, б) ;
Иф а>б зен ц: =а/б;
елсе ц: =а+б;
врительн (с) ;
енд.

ПК
Павел Клочков

Обязательно на pascal?

a = int(input())
b = int(input())
if max(a, b) % min(a, b) == 0:
    print(a / b)
else:
    print(a + b)

Похожие вопросы
Дано 3 значное число найти сумму 1 и посл. числа. Паскаль
Помогите составить программу на С++. Дано трехзначное число. Найдите сумму его цифр. Пожалуйста.
Задача в паскале. Дано натуральное число. Сумму цифр числа, больших а (значение а вводится с клавиатуры, 0
сумма двух чисел равна 64.Если большеее число разделить на меньшее, то в частном получится 3,а в остатке 4.Найди эти числ
два последовательных четных числа таковы, что квадрать большего из них в 9 раз больше меньшего числа. найдите эти числа
Как решить? Даны три действительных числа а, в, с, . Необходимо найти сумму двух наименьших (произведение двух больших)
найди сумму наименьшего числа
Разность двух чисел равна 5, Найдите эти числа, если 0,2 большего числа равны 2/9 меньшего.
Даны два числа. Вывести вначале большее, а затем меньшее из них. Входные данные: ввести 2 целых числа А, В (-1000<= А, В
Как меньшее число разделить на большее? Например 72 на 90.