Question

Нужно переписать код с pascal, на вот сам код: const
nas = 1000000;
var
b, b1, bz, z, f: integer;
begin
b := 3;
b1 := 3;
z := 2;
for var i := 2 to 100 do
begin
b := b + 1;
bz := bz + (z - b);
b1 := b1 + b;
z := z + 2;
if (i > 10) and (i mod 2 =0)
then f := f + 1;
end;
writeln(‘общее колво обратившихся’, b1);
writeln(‘общее колво умерших’, f);
writeln(‘общее колво вылеч’, z - f);
writeln(‘ ‘);
writeln(‘% обратившихся’, (b1 * 100)/ nas);
writeln(‘% умерших’, (f * 100)/ nas);
writeln(‘% вылеч’, (z-f) * 100)/ nas);
end.

Answer 1

NAS = 1000000 b = 3 b1 = 3 z = 2 bz = 0 f = 0 for i in range(2, 101):    b += 1    bz += (z - b)    b1 += b    z += 2    if (i > 10) and (i % 2 == 0):        f += 1 print('общее колво обратившихся', b1) print('общее колво умерших', f) print('общее колво вылеч', z - f) print() print('% обратившихся', (b1 * 100) / NAS) print('% умерших', (f * 100) / NAS) print('% вылеч', ((z - f) * 100) / NAS)