Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков =)
var x, a, b, k, i, wa, wb: integer;
begin
readln(a, b);
readln(k);
for i := 1 to k do
begin
x := random(5) + 1;
writeln(x);
if ((abs(a - x) > abs(b - x))) then wa := wa + 1;
if ((abs(a - x) < abs(b - x))) then wb := wb + 1;
end;
if (wa > wb) then writeln('Ann win!')
else
if (wb > wa) then writeln('Boris win!')
else
writeln('No win;)');
<span> writeln(wa, ' - ', wb);
</span>end.
Это следует понимать так, что диаграмма сохраняет связь со значениями, на основе которых она построена и при изменении этих значений автоматически перестраивается.
Program pr;
uses crt;
Var k,a,sum:integer;
Begin
Writeln('Vvedite posledovatelnost');
k:=0;
readln(a);
sum:=a;
While a<>0 do
Begin
readln(a);
sum:=sum+a;
if (a mod 2=0) and (a mod 3=0) then k:=k+1;
end;
Writeln('k=',k);
Writeln('sum=',sum);
readln;
end.
2^4=16 символов макс. кол-во в алфавите
формула 2^n, два в степени n, где n - сколько нужно разрядов-бит для алфавита, в данном случае n = 4
javascript:var м = []; for (let сч = 0; сч < 10; сч++) м.push(prompt()); alert(м.reduce(function (пр, тек) { return пр + (тек < 0 ? тек : 0); }, 0));