Program abc;
var a, b, c: integer;
begin
a:=15;
b:=50;
c:=35;
write(a+b+c, 'Всего учеников');
end.
Mod - взятие остатка от деления (35 mod 10 == 5); div - взятие целой части от деления (35 div 10 == 3). Пишу сразу заполненные таблицы:
1) а = 23
p s p>0
23 0 true
2 3 true
0 5 false => s = 5
2) a = 32
p s p>0
32 0 true
3 2 true
0 5 false => s = 5
3) a = 109
p s p>0
109 0 true
10 9 true
1 9 true
0 10 false => s = 10
1. F= (x1 или не х2 и х1) или (х2 или х1 )
х1=0; х2=0 F= 0 + ¬0*0 + 0+0 = 0
x1=1 x2=1 F= 1 + ¬1*1 + 1 +1 = 1
x1=0 x2=1 F= 0+ ¬1*0 + 1+0 = 1
x1=1 x2=0 F= 1+ ¬0*1 + 0+1 = 1
--------------------------------------------------------------------------------------
2.
F= (x1 или х2) и не(х2 и х1 или х1)
х1=0 х2=0 F= (0 + 0 ) *¬ (0 *0 +0) = 0
х1=1 х2=1 F=( 1 + 1 ) * ¬( 1*1 +0 ) = 0
x1=0 x2=1 F= (0 + 1) * ¬(1*0 +0 ) = 1
x1=1 x2=0 F= (1 + 0 ) * ¬ (0*1 + 1 ) = 0
Там должна быть поговорка "За добро добром и платять". А по вашим координатам (<span>(2,2) (5,1) (3,1) (12,1) (10,3) (12,1) (1,2) (2,1) (1,3) (4,2) (11,1) (4,2) (12,3))</span> получается "ром и платять".
Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.