Составить программу нахождения наибольшего из трёх чисел и проверить кратно ли это число трём в Паскале
Составить программу нахождения наибольшего из трёх чисел и проверить кратно ли это число трём в Паскале
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
num1, num2, num3, largestNum: integer;
begin
writeln('Введите три числа:');
readln(num1, num2, num3);
if (num1 >= num2) and (num1 >= num3) then
largestNum := num1
else if (num2 >= num1) and (num2 >= num3) then
largestNum := num2
else
largestNum := num3;
writeln('Наибольшее число: ', largestNum);
if largestNum mod 3 = 0 then
writeln('Наибольшее число кратно трем')
else
writeln('Наибольшее число не кратно трем');
end.
Программа сначала запрашивает у пользователя три числа, затем находит наибольшее из них. После этого программа проверяет, является ли наибольшее число кратным трём и выводит соответствующее сообщение.