<span>const n = 15;</span>
<span>var</span>
<span> a: array[1..n] of integer;</span>
<span> i, count: integer;</span>
<span>begin</span>
<span> for i := 1 to n do begin</span>
<span> a[i] := random(100);</span>
<span> write(a[i], ' ');</span>
<span> if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);</span>
<span> end;</span>
<span> writeln;</span>
<span> writeln('[', count, ']');</span>
<span>end.</span>
Var
i,n:integer;
a:array[1..4] of integer;
begin
Write('n='); Read(n);
for i:=1 to 4 do begin
a[5-i]:=n mod 10;
n:=n div 10
end;
Writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);
Writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);
Writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);
Writeln(a[1]*1000+a[3]*100+a[2]*10+a[4])
end.
Пример
n=7048
8407
4870
784
7408
Ответ:
453(*)
521
-----
+ 453
+ 1126
+2727
-------
304633(в 8 системе счисления)
<span>Системы автоматизированного проектирования.</span>
var a:array[1..11]of integer;
i:integer;
begin
randomize;
for i:=1 to 11 do a[i]:=random(31)-20;
for i:=1 to 11 do write(a[i],' ');
writeln;
for i:=1 to 11 do if a[i] mod 2<>0 then a[i]:=a[i] div 3 else a[i]:=a[i]*5;
for i:=1 to 11 do write(a[i],' ');
end.