Даны три натуральных трехзначных числа. Определить, сколько из них делятся нацело на 3. Проверку делимости числа на 3 оформить в виде подпрограммы, пользоваться операцией mod нельзя.
а самому чего ?
в школе учиться надо.. . 
плати 100 рублей
программу, которую тебе наваяли в ответе ниже - разумеется, абсолютно неработоспособная
program prj;
type
arr: array[1..3] of integer;
procedure mod3(var m: arr);
var i,k: integer;
begin
k:=0;
for i:=1 to 3 do
if (m/3)=1 then
inc(k);
writeln(k);
end;
var a,b,c: integer;
m: arr;
begin
m[1]:=456; m[2]:=343;
m[3]:=112;
mod3(m);
readln;
end;
Вроде так, писал сюда сразу, без проверки.
Проще былобы через функцию реализовать.
⇢