101000=40
10010=18 в классе 58 человек или 111010
Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.
В)<span>программа , обеспечивают работу устройства компьютера</span>