Var a,b: integer;var M: array[1..10] of integer;begina:=1;while a<>1000 do beginreadln(a);b:=b+1;if a mod 10 = 5 then M[b]:=a;end;writeln(M[1]+M[2]+M[3]+M[4]+M[5]+M[6]+M[7]+M[8]+M[9]+M[10]);<span>end.</span>
Найдите десятичный код чисел : 1001,1000,1011,110,1100,111,10,11,1010,100,101. Заранее спасибо!!
ZilotSS [589]
1001 = 9
1000 = 8
110 =6
1100 = 12
111 = 7
10 = 2
11 = 3
1010 = 10
100 = 4
101 = 5
Var i,s:integer;
begin
for i:=10 to 99 do
s:=s+i;
writeln (s);
end.
ну или
var i,s:integer;
begin
i:=10;
while i<100 do begin
s:=s+i;
i:=i+1;
end;
writeln (s);
end.
Целое, состоящее из взаимосвязанных частей-система
<span>var
factorial:
longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
readln;
end.</span>