Определить скидку в оплате товара, если стоимость покупки более 10000 руб, то 10%,если 7000 руб то 5%. Иначе скидки нет

эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :

111100% =  60% девочек

1100 = 12 мальчиков

12 мальчиков составляют 40% учащихся в классе

составим пропорцию

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

ответ. в классе 30 учеников.

костер: в древности люди разжигали костры, дым от которых был виден за сотни километров. они служили визуальными сигналами, оповещали о чем-то, например об опасности.

сумка с конвертами внутри: это атрибутика почтальона, разносящего письма.

барабан: барабанная дробь, так же символ передачи информации, но уже звуковой. это происходило в старые времена во время военных баталий, так же при военных построениях и парадах, что происходит и по сегодняшний день, барабанный дробь отбивает такт, под который маршируют солдаты.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.