Даны три натуральных трехзначных числа. Определить, сколько из них делятся нацело на 3. Проверку делимости числа на 3 оформить в виде подпрограммы, пользоваться операцией mod нельзя.
function div3(x: longint): boolean;
begin
while x >= 3 do dec(x, 3);
div3 := x = 0;
end;
var
a, b, c, r: integer;
begin
write('введите три числа: ');
read(a, b, c);
if div3(a) then inc(r);
if div3(b) then inc(r);
if div3(c) then inc(r);
writeln('делится на три без остатка: ', r);
end.
ЗЫ:
А че, племянник совсем без мозгов?
⇢