Var a,b,i,s:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=0;
for i:=a to b do
if i*i mod 7 = 0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 1
b = 30
s = 70
неУ -нормально замкнутый (размыкающий) контакт
∅----Х----+----неУ----Z-----+---∅
.................|-----------X---------|
.................|----------Y-----------|
∅-----+----X------неУ---------+-----∅
,,,,,,,,,,,|-----------Х---------------|
не(Х→У)=не(неХ + У)= Х•неУ
Var
n,m,i,j,k1,k2: integer;
a: array[1..100,1..100] of integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then inc(k1) else inc(k2);
for i:=1 to n do
for j:=1 to n do
if (k1>k2) and (a[i,j]>0) then writeln(a[i,j]) else
if (k1<k2) and (a[i,j]<0) then writeln(a[i,j])
<span>end.</span>
Выводит на экран слово "привет".
156 - могло (например, для числа 960 9+6=15, 6+0=6)
1717 - могло (989)
1917 - не могло (сумма двух цифр не даст 19)
518 - не могло (5<18, а 51 не могло бы получиться)
512 - не могло (аналогично)
152 - не могло (если большая сумма 15, то меньшая не может быть меньше 15-9=6)
69 - не могло (6<9)
915 - не могло (9<15, 91 не могло получиться)
195 - не могло (19 не получить)
Ответ: 2.