var bakteria, min: integer;
begin
bakteria := 1;
min := 1;
while bakteria < 100 do
bakteria := bakteria + 3;
min := min + 1
end;
writeln(min)
end.
Объяснение:
var bakteria, min: integer;
begin
bakteria := 1;
min := 1;
while bakteria < 100 do
begin
bakteria := bakteria + 3;
min := min + 1
end;
writeln(min)
end.
Объяснение: