Как вывести функцию сравнения двух чисел в паскале с помощью mod и div не используя IF?

Напишите программу, которая считывает два целых положительных числа aa и bb и выводит наибольшее значение из них.

Question

Информатика

Танюха

28 апреля, 13:09

Как вывести функцию сравнения двух чисел в паскале с помощью mod и div не используя IF?

Напишите программу, которая считывает два целых положительных числа aa и bb и выводит наибольшее значение из них.

+5

Ответы (1)

Знаете ответ?

Митря · Answer 1

var a, b, a1, b1:word;

begin

writeln ('Введите два натуральных числа') ;

readln (a, b) ;

a1:=a div b;

a1: = ((a1+2) div (a1+1)) mod 2;

b1: = (a1+1) mod 2;

writeln ('Число ', a*a1+b*b1,' не меньше ', a*b1+b*a1) ;

end.