Написать код к заданию: Напишите программу, которая будет определять наибольшую цифру во введенном трехзначном числе.

Question

Информатика

Радовлад

11 апреля, 07:38

Написать код к заданию: Напишите программу, которая будет определять наибольшую цифру во введенном трехзначном числе.

+3

Ответы (1)

Знаете ответ на вопрос?

Модрите · Answer 1

Var

a: integer;

a1, a2, a3, max: byte;

begin

readln (a) ;

a1 : = a div 100;

a2 : = a mod 100 div 10;

a3 : = a mod 10;

max : = a1;

if (a2 > max) then

max : = a2;

if (a3 > max) then

max : = a3;

writeln (max) ;

end.