Решить на языке питон Бандиты Гарри и Ларри отдыхали на природе. Решив пострелять, они выставили на бревно несколько банок из-под кока-колы (не больше 10). Гарри начал простреливать банки по порядку, начиная с самой левой, Ларри - с самой правой. В какой-то момент получилось так, что они одновременно прострелили одну и ту же последнюю банку. Гарри возмутился и сказал, что Ларри должен ему кучу денег за то, что тот лишил его удовольствия прострелить несколько банок. В ответ Ларри сказал, что Гарри должен ему еще больше денег по тем же причинам. Они стали спорить кто кому сколько должен, но никто из них не помнил сколько банок было в начале, а искать простреленные банки по всей округе было неохота. Каждый из них помнил только, сколько банок прострелил он сам. Определите по этим данным, сколько банок не прострелил Гарри и сколько банок не прострелил Ларри. Формат ввода Содержится 2 числа - количество банок, простреленных Гарри и Ларри, соответственно. Формат вывода Вывести 2 числа - количество банок, не простреленных Гарри и Ларри, соответственно.

1)

var

a: array[1..50]of real;  

i,n: byte;

sn: real;  

begin 

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

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

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*простой вывод в столбик*/

for i: =1 to n do writeln(a[i]: 5: 3);

/*сумма элементов, стоящих на четных местах*/ 

sn: =0;

while i< =n do

begin

  if odd(i)=false then sn: =sn+a[i];

  i: =i+1;

end;  

/*вывод ответа*/

writeln('сумма элементов, стоящих на четных местах: ',sn: 5: 3);

end. 

2)

var

a: array[1..50]of real;

i: byte;  

begin

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

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

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*количество элементов кратных 3*/

kol: =0;  

for i: =1 to n do

if a[i] mod 3 =0 then kol: =kol+1;  

/*вывод ответа*/

writeln('количество элементов массива, кратных трем: ',kol);

end. 

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.

в книге 1 верное

а 99 неверных решений

  в этой книге ровно 99-ть неверных утверждений.

var a,s,an: real;

i,n: integer;

begin

  read(a,n);

  an: =1;

  for i : = 0 to (n+1) do

      s: =s+an;

      an: =an*(-a);

  end;

  writeln(s);

end.