Procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s : integer;
k : integer;
Chislo : Integer;
ChisloTmp : Integer;
begin
k:=0;
for i := 100 to 999 do
begin
s:=0;
Chislo := i;
for j := 1 to 3 do
begin
ChisloTmp := Trunc(Chislo/10);
s := s + (Chislo - ChisloTmp*10);
Chislo := ChisloTmp;
end;
if ((s and 1) = 0) then
Inc(k);
end;
Label1.Caption := 'Таких чисел будет ' + inttostr(k);
end;
ОТВЕТ:<span>Таких чисел будет 450 </span>
1)
Var a,b,c:integer; x1,x2,d:real;
Begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
d:=sqr(b)-(4*a*c);
x1:=(-b+sqrt(d))/(2*a);
x1:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
End.
2)
Var x,i,s,n,d:integer;
Begin
write('Введите первый элемент прогрессии: '); readln(x);
write('Введите количество элементов в прогрессии: '); readln(n);
write('Введите знаменатель прогрессии: '); readln(d);
s:=0;
for i:=1 to n do
begin
s:=s+x;
x:=x+d;
end;
writeln('Сумма элементов арифметической прогрессии равна ',s);
End.
1)var h:array[1..8]of integer;
i:integer;
begin
write('massiv');
for i:=1 to 8 do
read(h[i]);
writeln;
write('elementi s otric znach');
for i:=1 to 8 do
if h[i]<0 then write(h[i],' ');
<span>end.
2)</span>var h:array[1..10]of integer;
i,k:integer;
begin
write('massiv:');
for i:=1 to 10 do
begin
h[i]:=random(21)-10;
write(h[i],' ');
end;
writeln;
for i:=1 to 10 do
if h[i]<0 then k:=k+1;
write('kol-vo elem s otric znach:',k);
<span>end.
3)var h:array[1..10]of integer;
i,k,p:integer;
begin
write('massiv:');
for i:=1 to 10 do
begin
h[i]:=random(10)+1;
write(h[i],' ');
end;
writeln;
p:=1;
for i:=1 to 10 do
if h[i] mod 2=1 then
begin
k:=k+1;
p:=p*h[i];
end;
write('kol-vo elem s nechet znach:',k,' proizvedenie:',p);
<span>end.
5)</span></span>var h:array[1..20]of integer;
i,k,s:integer;
a:real;
begin
write('massiv:');
for i:=1 to 10 do
begin
h[i]:=random(20)+1;
write(h[i],' ');
end;
writeln;
for i:=1 to 10 do
if (h[i] mod 3=0)and(i mod 2=0) then
begin
k:=k+1;
s:=s+h[i];
end;
a:=s/k;
write('srednee arifmet:',a);
<span>end.</span>
1.
1101 1000 (2) = D9 (16)
D9, DA, DB, DC, DD, DE, DF. Ответ: 7 чисел (тут мало - проще пересчитать чем переводить в десятичную и вычислять).
2. переведём второе число 256 (8) в двоичную систему счисления (так как это легко в уме сделать)
256 (8) = 010 101 110 (2) = 0 1010 1110 (2) = 1010 1110 (2)
Получилось такое же число как и первое, то есть их разность равна 0.
Ответ значит равен третьему числу A(16) = 10.
Легко и просто берешь рисуешь по клетках его и все готово
