Const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (a[i] mod 2 <> 0)and(a[i] mod 3 = 0) then s:=s+a[i];
writeln('s=',s);
end.
Пример:
Исходный массив:
66 14 74 6 15 65 42 37 34 0 63 75 69 17 50 15 78 14 7 35
s=237
101110111(2) = 1∙2^8+0∙2^7+1∙2^6+1∙2^5+1∙2^4+0∙2^3+1∙2^2+1∙2^1+1∙2^0 = 256+0+64+32+16+0+4+2+1 = 375(10)
2347(8) = 2∙8^3+3∙8^2+4∙8^1+7∙8^0 = 1024+192+32+7 = 1255(10)
помог бы с остальными но времени нет
Const n=10;
var ar:array[1..n] of integer;
a,b,i,s:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
ar[1]:=a; ar[2]:=b; s:=a+b;
for i:=3 to n do
begin
ar[i]:=s+i;
s:=s+ar[i];
end;
for i:=1 to n do write(ar[i],' ');
writeln;
end.
Пример:
a = 2
b = 3
2 3 8 17 35 71 143 287 575 1151
Program zadacha;
var a,b,c:integer;
begin
read (a);
b:= a div 10;
c:= a mod 10;
a:= abs(b-c);
write (a);
end.