Построение логических схем и таблиц истинности к ним.
A)
program dengoda1;
var k, n:Integer;
begin
ReadLn(k);
n:=(k mod 7);
WriteLn(n)
end.
Б)
program dengoda2;
n:=(k mod 7)+1;
if (n=7)then
n:=0;