Определите, какие значения принимают выражения, если A=1, B=0, C=0

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

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

100*1000000/8=12500000 байт в секунду

#include < iostream> #include < clocale> #include < cmath> using namespace std; void main(){ setlocale(lc_ctype,"rus"); int x, sum=0; cout< < "введите переменную: "; cin> > x; for(int i=1; i< x; i++) { if(x%i==0) sum+=i; } if(x==sum) {cout< < "это совершенное число"< < endl; } else {cout< < "это несовершенное число"< < endl; }}