Question

Пожалуйста, помогите решить задачу по информатике:
Дано трёхзначное число. Выяснить первая или вторая цифра в его
записи наименьшая (выдать сообщение об этом). Если наименьшая первая
цифра, то поменять местами первую и вторую цифры. Далее, проверив всё
число на кратность трём вывести на печать вместе с результатом проверки

Answer 1

Ответ:

Program n_1;

var a,d,b,c,f,h,Y: integer;

Begin

Read(a);

b := a div 100;

c:= a mod 100;

d := c div 10;

f:= a mod 10;

if (b > d) then writeln (“первое цифра больше’’), else begin

h:=d*100+b*10+ f;

writeln (“вторая цифра больше’’);

end;

Y := d+b+f;

if (Y mod 3) = 0 then

writeln (Y);

writeln (“a делится на 3’’);

end.