Определите имена персонажей по отрывку из текста: вещь, которую я сейчас прочитаю – произнес он, - была написана специально для того, чтобы тебя тебя развлечь. поняла, что придется ей его выслушать. она села и грустно сказала: . зимой, когда белы поля, пою, соседей веселя. это так только говорится, — объяснил . — конечно, я совсем не пою.

Алиса и шалтай из сказки "алиса в стране чудес"

1.

var a: longint;

begin

  read(a);

  if (a mod 10)=(a div 10) then writeln('цифры одинаковы');

  if (a mod 10)> (a div 10) then writeln('вторая цифра больше');

  if (a div 10)> (a mod 10) then writeln('первая цифра больше');

end.

 

2.

var a,b,c: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  b: =b*b*b;

  c: =c*c*c;

  d: =4*(b+c);

  if sqr(a)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln('  квадрат этого числа не равен учетверённой сумме кубов его цифр');

end.

3.

var a,b,c,d: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  d: =c+b;

  if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');

  if  d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');

end.

4.

var a,b,c,d,e: longint;

begin

  read(a);

  b: =a mod 10;

  c: =(a mod 100)   div 10;

  d: =a div 100;

  b: =b*b*b;

  c: =c*c*c;

  d: =d*d*d;

  e: =b+c+d;

  if sqr(a)=e then writeln('квадрат этого числа равен сумме кубов его цифр.') else  writeln('квадрат этого числа не равен сумме кубов его цифр.');

end.

5.

var a,b,c,d: longint;

begin

  read(b,a);

  c: =b mod 10;

  d: =b div 10;

  if (c=3)or(d=3) then writeln('в запись этого числа входит цифра 3') else  writeln('в запись этого числа не входит цифра 3');

  if (c=a)or(d=a) then  writeln('в запись этого числа входит цифра ',a') else  writeln('в запись этого числа не входит цифра ',a);

end.

Dim m as integer cls input "m=", m dim a(1 to m, 1 to m) as integer randomize timer for i = 1 to m     for j = 1 to m           a(i, j) = 50 * rnd - 25           print using "####"; a(i, j);     next j     print next i dim p as double, s as integer dim b(1 to m) as double p = 1 for i = 1 to m     s = 0     for j = 1 to m           if a(i, j) > 0 then p = p * a(i, j)           s = s + a(i, j)     next j     b(i) = s / m next i print "p="; p print "vector" for i = 1 to m     print using "###.#####"; b(i) next i пример m=5     3 -12  -2  -3  -4   11 -13  21  20  14   21    5  18 -20  -1   -3  24 -24 -19    8   -14 -24  -7  -2  -3 p= 70413235200 vector   -3.60000   10.60000   4.60000   -2.80000 -10.00000