Надеюсь, что ты поймешь. Пыталась итак подробно объяснить...
(Вместо 35 - 32, извините, поторопилась. Но ответ 57 в 10-ой системе)
Если вводится натуральное двузначное число:
var n,s:integer;
begin
write('n = ');
readln(n);
s:=(n div 10)+(n mod 10);
writeln('s = ',s);
if s mod 3 = 0
then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Пример:
n = 56
s = 11
Сумма цифр не кратна 3
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
(A<span>*B)∨(A*</span>¬B) ≡ A
A B A*B (A*¬B) (A*B)∨(A*¬B)
1 1 1 0 1
1 0 0 1 1
0 1 0 0 0
0 0 0 0 0