Алгоритм: этот проект очень удобен в нём есть всё для полноценной жизни. Нарисуй обычную коробку и по комнатам распредели.
Var n, i, sum1, sum2, buf: integer;
begin
writeln('Введите количество бросков');
readln(n);
sum1 := 0;
sum2 := 0;
i := 0;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');
readln(buf);
sum1 := sum1 + buf;
end;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');
readln(buf);
sum2 := sum2 + buf;
end;
if sum1 = sum2 then writeln('Ничья') else
if sum1 > sum2 then writeln('Победил человек по имени А')
else writeln('Победил человек по имени B');
<span>end.
Как то так ... </span>
Смотри. В самом начале идёт единица. Если следующим идёт ноль, то результат просто умножаем на 2,если идёт единица, то результат умножаем на 2 и прибавляем у полученному единицу.
1*2+1*2*2+1*2+1*2+1*2*2=220
1*2+1*2*2*2+1*2*2+1=101
Var a, b, c, s: real;
begin
write('Введите a, b: '); readln(a, b);
c := sqrt(a*a + b*b);
s := (a * b) / 2;
writeln('Гипотенуза: ', c, #10, 'Площадь: ', s);
end.
var B:array [1..1000] of real;
c:integer;d:real;
begin
writeln('Vvedite N=');read(a);
d:=0;
for c:=1 to n do
if(c mod 2= 0) then d:=d+b[c];
b[n]:=d;writeln(b[n]);readln;readln;
end;