51.This storage is non-volatile and has greater capacity: a) Cache b) RAM, ROM C)Secondary storage d) RAM e) Primary storage 52Network Topology: can easily be extended at the ends a) Star b) Pair-topology c) Topology d) Ring e) Bus

Паскаль АВС.
Программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное.

Program  Alyatu;
uses crt;
const n=4;
var
  i,z,s:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Используя признак делимости, программа оперделяет делится ли введённое 4-значное число  на 3');
writeln('Введите число');
repeat
    readln (z);
  until ((z>0) and (z<power(10,n)));
for i:=1 to n do begin
s:=s+z mod 10;
z:=z div 10;
end;
if (s mod 3=0) then Writeln('Число делится на 3')
else Writeln('Число не делится на 3');
  end.