На вход программы поступает натуральное число. требуется определить сумму цифр в десятичной записи этого числа, которые не кратны 3 (считается, что 0 кратно любому числу). для решения этой ученик написал программу, но, к сожалению, его программа неправильная. var n, digit, sum: longint; begin
readln(n); sum : = n mod 10; while n > 0 do begin digit : = n mod 10; if digit mod 3 > 0 then sum : = digit; n : = n div 10; end; if sum > 0 then writeln(sum) else writeln('no') end. последовательно выполните следующее. 1. напишите, что выведет эта программа при вводе числа 654. 2.
укажите одно трёхзначное число, при вводе которого программа выведет правильный ответ. укажите это ответ. 3. найдите в программе все ошибки (их может быть одна или несколько). для каждой ошибки выпишите строку, в которой она допущена, и эту же строку в исправленном виде.