Нужно переписать код с 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.

Krst263    1   15.07.2020 15:48    1