Очень быстро нужно узнать ответ Очень быстро нужно узнать ответ ​ ">

Б) 1

Объяснение:

a=5

b=1

a=5-1=4

4<10

c=-3*b-1

c=-4

a+b+c=-4+4+1=1

Что-то у меня не придумывается меньше, чем за 18 телодвижений.

1. Залил полный бак в 10-литровый
2. Перелил его в 9-литровый. В 10 остался 1 литр
3. 9 опустошил, теперь в нём пусто, а в 10 по-прежнему 1 л.
4. перелил 1 л в 9.
Этот 1 литр - назовём его переходящим остатком.

Опять погнали те же 4 телодвижения, по результатам переходящим остатком будет 2 литра.

Ещё раз - и получили переходящий остаток 3 литра
Ещё раз, и получили 4 литра. К этому моменту сделали этот цикл уже 4 раза, итого 4*4 = 16 движений.

Опять делаем этот же цикл, но достаточно двух первых операций, и в 10-литровом баке получаем остаток 5 литров.

Итого, 16+2 = 18.

Ну, у меня так получилось. Может кто лучше придумает.

program matrica;

const k=10;

type vector=array[1..k]o byte; masiv=aray[1..k] o vector;

var b:masiv;

procedure vved(n:byte; var a masiv);

var i,j:byte;

begin

randomize;

for i:=1 to n do

for j:=1 to n do

a[i,j]:=0;

for j:=round(n/2) to n do

for i:=n-j+1 to j do

a[i,j]:=random(255);

end;

proceure vuvid(n:byte;:masiv);

var i,j:byte;

begin

for i:=1 to  do

begin

for j:=1 to n do

write(a[i,j]:5);

riteln;

end;

end;

procedure rahnok(n:byte; a:masiv);

var i,j:byte; s,l:byte;

begin

l:=0;

for j:=1 to round(n/2) do

for i:=j to (n-j+1) do

if (a[i,j] mod 2=0) then l:=l+1;

writeln('kilkist=' l);