1) a:=x div 100 (в переменную а присваивается переменная x деленная на 100 без остатка, по другому a= x/100 без остатка, a=125/100= 1.25 b ,и берем только 1, a=1 ) 2) b:=x mod 100 div 10 (в переменную b присваивается переменная x деленная на 100 b и берется остаток, а потом число которое получилось делиться на 10 и берется только целая часть,b = 125/100=1,25 берем только 25, 25/10=2,5 берем целую часть то есть 2, b=2 ) 3) c:=x mod 10 (в переменную с присваивается переменная x деленная на 10, по другому с= x/10 без остатка, с=125/10= 12,5 b ,и берем только 5, с = 5) 4) s:=a *b*с=1*2*5=10
1) Program NoName; Var i,m : integer; Begin read(m); if m>31 then begin for i:=31 to m do if (i mod 16) = 0 then writeln(i); end; end.
2)Program NoName; Var i,n,x,c : integer; Begin c:=1; x:=0; i:=0; while i<5 do begin if (c mod 13) = 0 then begin x:=x+c; i:=i+1; end; c:=c+1; end; write(x); end.
3)Program NoName; Var i,n,x,c : integer; Begin read(n); c:=1;x:=1;i:=0; while i<n do begin if (c mod 11) = 0 then begin x:=x*c; i:=i+1; end; c:=c+1; end; write(x); end.
4)Program NoName; Var i,m,x : integer; Begin x:=0;i:=1; while x<7 do begin if (i mod 7) = 0 then begin writeln(i);x:=x+1; end;i:=i+1; end; end.
MMIV: 2004
LXV: 75
CMLX: Такого не может быть, поэтому предположу что MCLX: 1151
Объяснение:
I-1
V-5
X-10
L-50
C-100
D-500
M-1000