решить задачу по информатике: Дано трёхзначное число. - вопрос №16137721 от Gjjsg 22.10.2021 07:42

Question

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

Gjjsg · Answer

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 beginh:=d*100+b*10+ f; writeln (“вторая цифра больше’’);end;Y := d+b+f;if (Y mod 3) = 0 then writeln (Y);writeln (“a делится на 3’’);end....