Uses crt;
var a,sum:integer;
begin
sum:=0;
repeat
read(a);
if (a mod 6=0) or (a mod 11=0) then sum:=sum+a;
until a=0;
writeln(sum);
<span>end.</span>
Var A,B,S:array[1..62] of real;i,j,k:integer;n,m:real;Year,Month, Day, Wk : Word;
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;<span>end.</span>
Div - это целочисленное деление, деление без остатка?
Тогда
i - целое число, делимое
j - целое число, делитель
а остаток от деления будет
i - j * (i div j)
А истинно
В ложно
С ложно (у вершины дерева м.б. только 1 предыд.вер.)
Е- истинно
F-истинно
G -только волк и гусь
H- ложно
D-да(лошадь)
J-истинно
K-ложь